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I® !3 ©tt-g^ieiit 5 i2'g©^ S © C{^v:> ^ T. 
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V;^^a;L/>:V^^G^|i)LTii;g*§m^T*^^ y T->'T-$'ffLTfe, ^®tTttffJIE 
^tiST (HS^iT® LIST®:*#M). 

(4) ^T#-§-®T)lt*';l 

RENUM =&^i:>ST (^3^4^® RENUM ®:l#B^). 

■yQiy7ArolS?|;(-b-7') i:if*-iA^(P- K) 

BASIC-CfT^L/cTnT^Att, 2^#:®«ig^^l> t S ^T. ^®/cfe, 

TnTTAtt, X;?C*^tLL, 4 

S-ftA. 
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F ^ —3K—F±2!)i^ 5®'^®^SC^T'T. 
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(1) tfiJ^K (.) 

BASIC (ommoMMbfi^fz'ijmm, #atT^rft^) 
fB^T', ^^4^® <tT#-^> t UTllffi4-|.3i:;6^*-r§ tf. /StAtt', ffbv^ 

tT^lfAb/c, :3:-y—b^^^Lfzti:}i(D'{fX-t, 

^IJ) LIST . 

(2) ■7'(i-X (-) 

LIST, DELETE ^irTtT®«gH^JiST^ t§, 

T. t in blB'^TT. 

#lj) DELETE 100-200 

(3) □□>(:) 

T;l/f^XT- > l'®E-®D t bTi^V^ST. 

^IJ) A = B + C : PRINT A 

(4) =I>V (,) 

y<yt LT^v^tT, 
m) INPUT A, B, C 
COLOR 7, , ,0 

(5) -te s a □ > ( ; ) 

PRINT ^ t'(Dtii:fj1i:^Ty<9^-^ DLL xm^ 11. 

^IJ) PRINT ”A = ” : A 

(6) 74-v;^ h □ T'-r (’) 

REM (H 3 ^l^® REM ®^#^) ®f-^ffl b btlllv^ t T. 

(7) i?X'y'>3 >V—(?) 

PRINT t bTl£v^ t T. 

(8) TX^'IJX^ (*) 

(r^2* 13. #S8). 


(9) 

Jliy t bT35:^a$i!clc-g-^X-^-XLM^®X^-A bit T*b ^^® 
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W.2n BASIC 


5. 

h(DTt. miz^-ox^n^ 




m^— 




mm.m 


^ 8 

— lOjiffM 

— leitffM 


nmm 





5.1 

255/^^ t~r~iy3> (”) 

T♦H^/i, -x^nr-^cDztxt. #^ie 

#, yi'X^y^X^j:ihtf\z2yU hmB:^mX^^j:b^^^mx^tt 

Xt). 

BASIC (D^^<Dtj:Mzit, 2^nM h*^)O^)$> D 
BS). tfz, (”) {”) 

*1-^, CHRS^fflV^'T, KCHR$(&H22)i; t^f. 

M) ’’Good Morning” 

”1 2 3 4 5 6 7 8 9” 

”yi—7X)l' =l>b°iL —:^” 

”02^ig BASIC” 

CHR $ (&H22) + ”TEST”+CHR $ (&H22) 

5.2 

mmmm.tii, nmmn=&n^zb(Dx^^m&r~7^mmmmLfzh(Dx, 

5.3 

mmMmUi, *f3±®li*A^6>, 8 j 1 • 103i • lem® 

■ lOit^it 

-32768*=>^+32767tT®-r-<T©Si!CCf. 
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5 . 


iEOS5c®MOlf-^(±^l&-C§ . I^fz, lllU:|eHF*30ll 
/jNSSc;^J^)lT«Eaj#5:A$ti, 1-. 

m) 32767 
-123 
+ 5 

31100.5% 

m 8 

miZ&O tfzlt&^tb^j:-ofz, Oii^h 7 ^T(Dm.^(DW.Xf. &0~&177777©I6HP*3-C1-. 
m) &12345 
&07777 

mimm^ 

m<iZ&H^th^j:-ofz, Oi)^^ F tTOMtf. &H0~&HFFFF 
^ij) &H100 
&HCFFF 

a®: i'im^tfzm&mm^x-xts-^fifzWL\mt, print^ i:©i±j7j3t-cttiojtffM-rtH 

103im©ffMT'ta*-rS ^tl^tlOCT$, HEX$^iIoT^^: 


5.4 

5.5 

W^«T7ffi®|fg^feo||i![©r-i7T-r. tB770i:#tt7fiTg*^*E3JtEA$tl, GtlrJilT 
#fflgffl|liScOfiO|6H«,-1.70141E+38~1.70141E+38rT. 
BASICTtt, t < tTSt)tLt-r. 

mm±(D^miz i d , ^^0 s 0 1t. 

m7mxT<Dm^ 
mmmiz i 

■ E 

0IJ) 3525.68 
3.14 ! 

-7.09E-06 
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^ 2 @ BASIC ©iS 


5.6 

-1.701411834604692D + 38~1.701411834604692D + 38T*f. 

■ 8tffJ.U±(7)|li!c 

m D 

m) 1234567.890 
56789.0# 

-1.09432D-38 


6. 

y^v^'yA^T^^r-^^Lt^Xi3<ZbiiiT^iXn^<Dl^^j:h(DT, 1 
^43, mm^m(Dimio, b >; 

6.1 

fzL, ^^iS©W*0 t-a:^. Z(DM^iZLfzybi-oX^m^':)li^ 

fzt^i£, <^©2 0o fzmwc^tLzmm^tit-r. 

COUNTER . OF. TABLE. DATA. 999888777666555.01 
COUNTER . OF. TABLE. DATA. 999888777666555.02 

(rii2$ 8. nmE. 

fz/zL, FN T#&SS^i5c^(irF$^^^-fr^(||3 
^ifODEF FN (om^m). t/z^JC^iZ^\.^r:k^% t-B:^. 

6.2 mB(7)M 

mmizh, m>it6r-^izi;sufzmA^$>o tt. 
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7. 










mkoymt, tci-^TEjgijb^-r. 

'\}t'<!K<D 4 oTf. 


mmwii:^— 


^$ 3t^§!! 
— % 

—! 




fij) 


A ! —I 
A # — 
A% — 
A $ — 


•2.^55, A! tAttIWIU:. 


fzfzV, SM^^(DEFINT, 

W DEFINT A-C 
S 

c=A+B ^A, B, cti, 
L = M*N ^A~CiU^«, 


7. 

fz<-^A.(Dr~^^mmbixxLfz<o, tztta, 

T-xomtnoomhit^, ioom0m(D^WLimMt^(Ditfz\^^-^A.Tt. 

C, A(0) ~A(99) 

iooffl©T-^^ 1 b bi^x^t-t. 

:* y tzbX\f, 

A(0)tt, A D il-. tfz 
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%1% BASIC 


mn(om^tnm, ^(owmik^o 

I? t-r. tzfiL, 

<I®|51!9T«^!? ^-a^^. pb<a, ril2$ 6.2 

LT < 

■/ni7'7A|^TiB?0^i^ac{i, i,^*^i;*DIM C J; ^ 'WJOSb" SB^OcD 

DIMTtt<^®J:-5C, ^OiB?y-e^ffl^ig=fc^^OftAfi>&yi^f 5cticj:5, g*®f@ 

DIM A(5) 5 T, "A" t -5SB^O^IS^aB 

Sflijt LT 5 t-r®-e, 1 i;J5rD S1-. C© 

5 +IT, 

tvObi:^, "^^©*/Wfi (OPTION BASE) t 

BASIC ©®»)P#CttC®t)(Mi;:^oTV^S-r. *io, OPTION BASE 
^^©jR/NS^ 1 Cl'-S C i: fcT§ ST. 

tfz, DiM^TiB^o^ff^aaTsp^, ^©ib 

^^©fgisicrEu* !![=£■ tocto s-r. 

^^:©ft/jNfflA50TabSi: tT)>:©S^^ciB?y^fi:Bt/c**'n©, #iB?y©iT^ 
iSc^D i t/S^©"^b TS T. 

DIM A (10) IiTtcSB^J, 

DIM TA(2. 3) 2^7EiBm ^*f((±3x4=12 

DIM NAMAE$(2, 5, 3) 3 iT^IB^lJ, g^lSctt 3 X 6 X 4 =72 

2 #g OMiOm-a, <T© S ^ 2 (i(:^l^ t2 ITtc) ©iB?y*5 t6titt. 

TA(0, 0) TA(0, 1) TA(0, 2) TA(0, 3) 

TA(1, 0) TA(1, 1) TA(1, 2) TA(1, 3) 

TA(2. 0) TA(2, 1) TA(2, 2) TA(2, 3) 

SB?y^fl©<T7t,fc'St/^^©RAIili, ^"6< oTfeS^TI. b t 

T#ST. 7c/’b, <^7t;Coi.^Ttt, DIM THT(255T;^)Tcf3iET§?.SgHl^, 

|®fe$)0 ST©TaEbT<*'$v\ 

*^©§Afi*n0b(T (*?©ft/J'ffi*^*0Tfe ITfeA^ST^fV^) ©i:#tt, DIMC 
S-SSW^tTT*< t @B?iM^ffiv^l>Ct*?T§ST. 
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9 . 1!^^ 

8 . 

n8s-basic( 86)«, ®a±, mn.t£h<Db 

LT&v^t-r. tnftfti, X^}£i3^ BASIC 

nx\^^hh(Dx-r. ^mm^^<Dtt.^%.^tcxm.mctz^ti>bt\ix^-^ 

-l±^. 

basic 

fztb, fgOM, '<k6, BASIC3^ffi±TW$ti/c, 

sc.^ (x-<-x, ^-r~i'3y (”), (#), nny (:) ^if) 

AC^^< ra^D t-y:^. 

BASIC r#i^E. ^^i§-KJ 


9. 

Mr-iJ'Ii, i2'gC5ECTft&®S(c:^^fCfc 

3i:^3yi;Ma!orBiT'«a!^^^tTa ;i ta-c# , 

:: St-(^3^4>OSTR$, VALOJS#M). 

J: oTfie -r. 

W 10 ABC %=1.234 
20 PRINT ABC% 

RUN 

1 


( 2 ) '^^(D^omumomnom^, m^(Dm^^y5ibmm-^tix, tzt 

io#/3o:«^, m/3#tLxmwm7htitt. 

W 10 A#=10#/3 
20 B#=10#/3# 

30 PRINT A#, B# 

RUN 

3.333333333333333 3.333333333333333 


17 


m2m BASIC ©sea 


(3) 

m) 10 A = 12.34 
20 B = NOT A 
30 PRINT B, A 
RUN 

-13 12.34 


(4) coti, mm.mT 


d tt. 

W 10 A%=34.4 


20 B% = 34.5 

30 PRINT A%, B% 

RUN 

34 35 


10 A#=1.234E+07 
20 B% = A# 

30 PRINT B%, A# 
RUN 

Overflow in 20 


(5) 1 1 it, i ffric 

%ibtzh<Dk2-j:<0tt. t 

5.96E-15 it". 


fij) 10 A# =1.23456789# 
20 B!=A# 

30 PRINT A#, B! 
RUN 

1.23456789 1.23457 


usscffiisssc) ^m'^Lxmwi'tcv, ^m^(Dm.^i^Mis.%.WL^^WLi^ixx\^fz d- rs 

m 1) ct 

• #Tt b < 6 ) 

A#=1.41421356#+0.12 

A#=1.41421356#+0.12# 


18 



10. ^hm.% 


m2) 

t < 

A #=3.1415 

A #=3.1415# 


10 . 

at), tzA.^j:6^^n^mU, mmzif(Di>(D, tfz\±mWL<Dnm-Ct. fzhi.\m(Dh(D\t, 

^ij) 10+3/5 

A + B/C-D 
"BASIC" 

3.14 

A$ 

TAN(D) 

mmi, m.n^tfz\mm^m^^x'iio^(Dmi'f<Dz.hx, 

1 . nmmn 

2. m\mn 

3. mmmn 

4. Mft 

5. sc.'^jmn 


10.1 


It 

Hi 

1+ 


*,/ m-, mmomn 

+,- tm, MM 


m\ 

x'y 

-X 

X*Y, X/Y 
X+Y, X-Y 
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112^ BASIC ©iii 






BASIC (7)^15 

1) 

2X+Y 

2*X+Y 

2) 

f+2 

XAY+2 

3) 

(X+Y) 

2 

(X+Y)A2 

4) 

X^+2X+1 

X''2+2*X+1 

5) 

XV^ 

X''(Y''2) 

6) 

(X’')^ 

X"Y^2 

7) 

Y(-X) 

Y*-X 


tj:i3, ril2^ 10.6 ill»:®«7feJiif>iJ*#PitT<** 

(1) 

s85:©^»a¥cj;oTtTi^tisi-. 

Su ^c/J^iC^lUT*^*ra^#EA tt. 

m) 10¥3 ^3 (10^3=3- • *1) 

23.75¥5 -^4 (24H-5 = 4 • • • 4) 

Sil^o?i*:(± MOD c j: oTtTbtT-S-f. Wi.t>ii?>M$.t^'^Wii(D^-aiii, 

^mmmomowib^Dxt. 

1511) 13.3 MOD 4 ^1 (13-r4 = 3' • *1) 

25.68 MOD 6.99 ^5 (26H-7=3- • *5) 


(2) 0 X(DmU 

0 "AO" (Division by zero) 

m©i!cfsut basic* 5^-5 c h®-e§s*:A®iSi^s*t Lxmm^ 


gctTt^-r. 

ttz, 0 tx. 


1511) PRINT 2#AO 
AO 

1.701411834604692D + 38 


PRINT 0''-l 
AO 

1.70141E + 38 


(3) (t—y<—ya—) 
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10 . 


"OV" (Overflow) t bTM 

m) PRINT 3''300 
OV 

1.70141E+38 

10.2 mimm 

(^ 3 IF-THEN~ELSE 

<>, >< 

< 

> 

<=, =< 

>=.=> 

a®: =ttftA5;i-^{^a©Ta*f Sit. 

IF-THEN~ELSE ©4’'e©(Ko^:fir©^J>&»:c^t ^-t. 

W IF X=0 THEN 1000 

IF A+BOO THEN X = X + 1 : Y=Y + 1 

10.3 mmmw- 

b A 0 f S ©0^ Sitsf. 

«, WLdmU^- 32768*^S + 32767^T© 2 ©li^^^©SISltTS, 

"OV" (Overflow)x7-fc^i:'3 Sf. 

^mmmn<Dp^m^m<Dt:is<9-^t. mmmmt, mdmm.m(D2mmm{ieh^'y h^)cM 

bTb'y F i'tKfxtJttS-f. #—©by F X, Y CoViT©ill@^^=&^t 

NOT : not (SS) 

X NOT X 

1 0 

0 1 
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NOT X 



#b< 

/J\§Vi 


X=Y 

XOY, XXY 

X<Y 

X>Y 


X<=Y, X=<Y 
X>=Y, X=>Y 




m2m BASICoia 


AND : and (iia«) 


X 

Y X 

AND Y 

X AND Y 

1 

1 

1 


1 

0 

0 

( 0 ) 

0 

1 

0 


0 

0 

0 


OR : or 

(iia^n) 



X 

Y X 

OR Y 

X OR Y 

1 

1 

1 


1 

0 

1 

( 0 ) 

0 

1 

1 

vJw 

0 

0 

0 


XOR : exclusive or 



X 

Y X 

XOR Y 

X XOR Y 

1 

1 

0 


1 

0 

1 

( 0 ) 

0 

1 

1 


0 

0 

0 


IMP : implication 


X 

Y X 

IMP Y 

X IMP Y 

1 

1 

1 

/""AA’A 

1 

0 

0 

( 0 ) 

0 

1 

1 


0 

0 

1 


EQV = equivalence (Rfil) 


X 

Y X 

EQV Y 

X EQV Y 

1 

1 

1 


1 

0 

0 

( 0 ) 

0 

1 

0 

v_j^y 

0 

0 

1 



^ V, h y b -Xzm^ 

6 C t*5T*# ti-. 

fztm, ANDM»^«®§§OAtii*5K-h®XT-:^'X/NM b lH^Oi- 
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10. 


h t fz OR ^ tz 1^ li^2^ <D \f y 

JilTK, ^9MW^i'^if<D^yiZiSs<,ij^(DMi^Ot.'t. h ,I.*h 

i ■5-tfi:ffi®t'r < /i$v\ 


-1 OR 0 -^-1 -1= (1111 nil nil 1111)2 

o=(oooo 0000 0000 0000)2 
-1 OR 0 = (nil nil nil 1111)2 


48 AND 24 ^16 


48 AND 


48= (0000 0000 00110000)2 
24= (0000 0000 00011000)2 
24= (0000 0000 00010000)2 


15 XOR 60 ->51 

15 XOR 


15= (0000 0000 00001111)2 

60= (0000 0000 00111100)2 
60= (0000 0000 00110011)2 


17 EQV 12 ^-30 

17 EQV 


17= (0000 0000 0001 0001)2 
12=(0000 0000 0000 1100)2 
12 = (nil nil 1110 0010)2 


28 IMP 9 ^-21 


28 


28= (0000 0000 00011100)2 

9= (0000 0000 0000 1001)2 
IMP 9= (nil nil 11101011)2 


NOT 23 ^-24 


23= (0000 0000 00010111)2 
NOT 23= (nil nil 1110 1000)2 


feu, 0 (fe) t-1 CM) i-i)^^^6nt£:b^-DtzCs:^, 
t-rcmm<D-\ OR o^#M). ofzti^x, 
tt. 

m) IF X<0 OR 99<X THEN 1000 

X tfzii, 99 j: D ^ OtH£, tTS-^-lOOO^^^. 


IF 0<X AND X<100 THEN X = 0 

X*^*iET*^o, lOOJ; X KO^f^iAt-'S. 


IF NOT (A = 0) THEN 20 
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BASIC 


10.4 

^ ti^T^ 6 hOTtitctzL, MiSlC i-cs TIi, ^\W.^'iL' 

tt). 

1-. 

Nss-BASIC (86) ica, SIN (lES), SQR (¥:^tS) CHR $, LEFT$^(: 

ctiboMI^Scicoi^-ni, w. 

3^TaS®#^i: i: 

"i—LT^i—bn.« 
^3* DEF FN 

w^mw( (SIN Tit, 

t §ct (disk 

t.t. 

^IJ) A=SIN(3.1416)+C0S(3.1416) 

PRINT 2, 2*2, SQR(2) 

10.5 s:^n(r>mM 

BAsicTtt, -xTm^Mi-r, mw-^n^ 

(5iJ) 10 A $ =”SUPER” : B $ =”PERS0NAL” : C $ =”C0MPUTER” 

20 D$ =A$+"-” + B$+”-” + C$ 

30 PRINT D$ 

RUN 

SUPER-PERSONAL-COMPUTER 

mx^n<ntm 

:$C^h, ^tl6 h(Dtt-ofz< S c ti^T 

nXt. 


= , <, >, <>, X, <=. =<• >=. => 

x^n(Dm-^^ti^ti(DX^n(Dmw*^^ix^-f-o, ^L-tssic 

^(D2'O0X^niimL<ti:*) tti}^, 1 {@RItT felto 
tt, (ff^itc. 4r^7^'i5'3-F*J #M) (D:k^^^U(D-SC^n 
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11 . 


^ < ^1-. 

5C^?y®i:b^CfeViTti, < ti-^i^. 

'A(DMli, (-1) t^j:>)tt. 

W ”AA”<”AB” 

”BASIC” = ” BASIC” 

"X&”>”Xr 
’’PEN ”>”PEN” 

”cm”>”CM” 

"DESK” <’’DESKS” 

b), r^'y D (y-b)1- 

10.6 


1 

ii v 

9 


2 

MSSc 

10 

NOT 

3 

^ am) 

11 

AND 

4 

- 

12 

OR 

5 

*,/ mn, 

13 

XOR 

6 

¥ mwimM) 

14 

IMP 

7 

MOD 

15 

EQV 

8 

+,- mm, mm) 




11. yr^Ji^ 

11. 1 yT-(JUtii 

DT'7. r ^ X7Cl^#b*7n7'7A^r-7«, 
7 T'! ^UtLXWi.iytltt. tfz^<Dm'M3M}i(DX^t3ii, ^tty>tzT-7<DXd^tlt^^ 
^WMX, 7 7'i)Vt\^^^ bh^f^fzXm.d^hiiX^t.t. 

N88-BASIC(86)T«, ^(Dthi.Tb^fz\Ziit'7^, tV X Ufe t bT, ^©ftfeO 

mmm^^t-tsi-xyMzx^tsm^t^^m t^ 

7. 

7r'i’;wfi ^7 7'( )\'r4 77^}X7" 
oTKSy^tit7. 
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112$ BASIC 


11.2 7 

7r^/^r^x;?'j7°^tt, T'i '<k(D X ^ 

x:^>:] <yT'(JU^y’ 

77'i/i-T^ yy V■y‘yt-T-i^syn 

<rV^M x^> tiT'f it (D^W^^^th 

©T, T^i-7 r^'y h 4X^, feL< tt7;U'7r-^'y h 3:S;^i:IS:?lX^Ic,” : ” (noy) 
^)©^liMiJi; LTVi r-Y X ^gSlcov^Tfi, Fy ^ 

N88-BASIC(86)T^S$ttTV^5T7NM X^tt, <7© h:fo’T^, 


X/N'-f X^ 


Xt) 

tat) 

KYBD : 

+ -$'-F 

o 

X 

SCRN : 

X 7 y - y 

X 

o 

LPTI: 

7y y7 

X 

0 

CASl: 

■^^7 hr-7° (1200$'-) 

o 

o 

CAS2 : 

)) ( 600$-) 

o 

o 

1: 

X7 Fy-^7 1 

o 

o 

2: 

X7 F'y^ X 2 

o 

o 



) 


14 : 

r ^ X 7 F y -I" 7*14 

o 

o 

COMI: 

RS-232C milellS 

o 

o 

COM2 ; 

RS-232C11201^ 

o 

0 

COM3 : 

RS-232C ^30^ 

o 

o 


/i^ : 

• KYBD : i t; SCRN : I±, DISK ^ - F BASIC 

• CASl : fcJ:t;CAS2 : (i, CMT ^ y77x-X$'- 
T*f. 

•1:~i4: tt, yymmommmmzimM'^m-ct. 

• COM2 : , COM3 : tt, «ffl©RS-232C^ y7 7i-X$'-F^5l^tTV^S«^©^JgS 

m^Tt. 
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11 . yrA)^ 


<tVnMX;S>: 

1 ) ROM ^ - F BASIC 0m-a(D:^^'y hr-n (CASl : ) 

2) DISK F BASIC 7 n 7 t° ^ r ^ X i? 1 (1 : ) 

RS-232CIi]||(COMn: ) OPENCJ;i), 7-F 

ij r ^ f-i 7 7 if®, tt7®^-F^^^C^cltti-tf^i: 5 I¥t<ttll 

3^4J® open (Dm^^mLX <fi^^\ 

rV-f^ x^K0ViT®pliti, i—f-"—X'-7 —^7-'^® r^lO^ t 7 r'1’-'i^J 

^mmLx <fz-^^\ 


myr'Oi'^ 

<7 (i, 7nX7A7r^-'i'^r-77r^-'^K7'i^^^HU7, 

7 r-f X-b^F, 7n 7 t°^ 77i&t'®ffil&f31S 

D tt. 

<yr'<Jl'^> L) [<i!£5ft7T'l';u^>] 

MW(D <7r^;biS> (i6:7;^, t”y:tFK^< <WM7r^/\'^> a, feC*tLtt'3:X^ 

^it>^titt. <7r-f^bi&> A^7 r4 <Sa® 7 r ^ i^yr4 

ib®ttW^*73:5t.:bi7*n t < i::::tiCZfzh6 :i tt 

-BrA. 

<KK7ry;b^> t7-^A/ffe®$'Si!^bt7. 

7r^ 1/xM nny (:) iJj;t;A^77 

73 -F 0 t2557*$tlS5:^tt^AS-bA. 

^?u® <7ry'A^> 6:S:^S^T® 6:7:?*^' 

<7r-^^b^> EOT, m< 9X:^StT(D <ilS?Sy T'f 

10*^gm®SC?«iS:^$tLS7. 

X-fe'y F-r(iffi?R7ry S-b-A®7, 7 

^0 S7. 

11.3 - 7 —^ "7 7 -f JU ^ "7 7 ^ v'U## 

Xn7*7A4'7, t- 7 7 rt & izii, t-f, OPEN Ci oT 7 r-f >'b®l^ffl^ 
Sb CS7. 

OPENXtt, ®9 7r'<-'b§<7r^^br^ 77 y 77>7lg®LT, <7 r >'b##>=&SiJD 
S 7. 7 r ^ ib#^(± AtJB^J® A * 7 A y (/s' >y 7 r) t T o O 5 SIW® 
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m2m BASIC 03 ts 


lU'^, OPEN 

Nea-BASIC (86) h § 7 r ^ am 1 $ 3. BASIC OHif'P 

^-FJ#^)«, iwiB#coPEN-r-sctO-r§-5 7 7^-'K^'i&^EftCS-r*n 
fgSbfci!t©l6HF^-r7 r ^ c h*5-r# s 1-, 

r - 7 7 r -I" if KM L T ^ 3 7 r -f iJ 

J:t/BASICi—!F-X-7^:i7/P$'#S^bT < 

12. flJUlA^ 

3 71” i — 7 ©SIMT'S) -S CPU (Central Processing Unit) hi, --SSK|^B#K 2 

Ltzt^^X, 1 •7f±*^MaLTV:>SMaftfe-rM*^*^c;?>5 h, 
CPU C i:(±-r# t-ltAU, C t § ;t-C# iKDC tti, 

1 ':>(D»:t-:>1-Z—'M(Dmtl^mi^^^mti> ± ^ *Xn7*7AO:^^, ^(5i;?p^ffiC«* <0 t 
lo®Xn7'7A©®atpK, ^ C i;*s^ ("* 

m" b Bf-Jt) *t|B ^ /c i: # K, ^ $-^■5J;^*X^7'7A^£^St75 

/ctAa', CPU*^^S)5Ma^ 

HtTCrv^Sti, 7r777377-dtff$n/>:*if0ltSiJ^*^*^*fS^t/ci;ttX. C 

® j: a - K 7 X ra CPU i,z^(Dmmi)^B§fz c t §•, ^n - f 7 x 

^c-ccpuii, aftiitT4JoMa^-B#ff±u, 

kl±<DXd^j:mti^, PC-9801T«, #<©if2^gTC® 

Wl>)^ b bi^X^ 6) X ^ iztj:^Xi3 V , 
Nee-BASIC(86) h UTV^tX. 

iXC, Naa-BASICd^T-df- h UTt^-SflJ O 17. 


(1) 

STOP 7- 

(ON 

STOP 

GOSUB #^) 

(2) 

HELP 7- 

(ON 

HELP 

GOSUB mm) 

(3) 

V 7)\'^ -i • 7-^ v 

(ON 

TIME $ GOSUB #Sg) 

(4) 

7 r 77 7 3 77 — 

(ON 

KEY 

GOSUB mm) 

(5) 

RS-232C Hm 

(ON 

COM 

GOSUB mm) 

(6) 

7-1’ b^7 

(ON 

PEN 

GOSUB mm) 
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13 . 


13. 

N88-BASIC(86)T«, 
t)DtbT, "y'OV^" 

i;fej;<, RENUM TtT#^©olj'#^=&tToT^)^©/-ct;cfTtv^fT#-t^ 

EAST'# if. ^T7°n 

f f A©0iE^E^tT9 t #Cfe/•c©^^WflJ'Cf. 

^bif. 

10 INPUT A 
20 IF A<0 THEN 80 
30 IF A>0 THEN 60 
40 PRINT "zero” 

50 GOTO 90 
60 PRINT ’’plus” 

70 GOTO 90 
80 PRINT ’’minus” 

90 END 

biLfi, WilXXtl^tltz\$.t^lEi^'kt^(i-b^^m^^Xu^'y b b-CMa©i®tL=& 

30, 50, 70tTfMb)ilTV^T, f®^R5fe0fiSl±f 

i f. 


tL=&, 


10 

INPUT A 


20 

IF A<0 THEN 

♦ MINUS 

30 

IF A>0 THEN 

♦ PLUS 

40 

PRINT ’’zero” 


50 

GOTO * EXIT 


60 

♦ PLUS : PRINT 

’’plus” 

70 

GOTO ♦ EXIT 


80 

♦ MINUS : PRINT 

’’minus” 

90 

♦ EXIT : END 
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® 2 * BASIC 


J; <ht^i,XoCtj:D t Ltz. 

zoyxdh^, ^K^feoSEPt bTgScoi^?, c t®-C§SfeOTl-. 

(1) y ^-a:^. 

(2) 5fc^®7X7 y •? 

(3) 7§•?>:$:¥«, 5fe^®7X7 y I-'nM 

t°y:tF (.) Tifey, 7:X^t/h7:^oKS!i(±S) y t■y:^. 

(4) TztzL, 

(5) 7-<;l/iSO:R$«, 7a7'7AO ltT©®H (255 ^nM hJ^^F3) 
t7. 

(7) lff4'T7^2V'^®^CiEty-T#^=&|3iEb, •7;i/7Xr-h X 7 F i:72. i: 3 

D 7( : ) XC J: oTg^y t7. 

Ji/(±© i -5 ^c$iJK^SS!S7 •5> t "Syntax error" t y 17. 

^ 0'fte#SiSi 7-X-'^^C|I| C ©*5a5 o /Cilr-H, —ttTt^S t ^ 
"Duplicate label" i7-*5^i;t7. CttC>©x7-®1^tilB, "RUN" U/cti, 7n7 
y A.(Dmniz9cfz-oXnt>tlXi-i}^i^, 7-<;U:^©i7-*tJ,s i;7n77A^ ltTb^fT7 
S C tdt-r# t■y:^. 

tfc, —7 7-fe—7'(ii7—<!?#■§■> li t t-&^. 

7D77A457^lKOSePh LIST, DELETE if <tT 

#-^> ^7fat7-l.^^®^’'°7 7-7Cl±7-<T^ffi72) C td^'RTigT^. 
fij) LIST * START-* LAST 

DELETE *L00P1-*EXIT1 

14. Ji^ — ;>^'y\z—i> 

N 88- BASIC (86)a,7n7'7A®|ltT^&T'»T$-y:’&U^tt'*^^v^<J:-5*i7-«r^tT^K 
i^liiLTst#, i7-7'y-fe-7=&iii®CtBt/L, nvy F Jf y S7. 

7'T 7X F^-F®^-&, i7-7 >y-fe-7tt<7® J: 7 ^cffMTaj7l$:lxt7. 

xxxx* • • 


30 


14. i 7 ^ 7 -tr — >>' 


XXXX • • • in yyyy 

XXXX* • • yyyy Z.(D'i7\ih< 

-f©TCFjiE< 

—y<'y-fe — rf^®A. ^7 — y<'y-fe — 

#BSbT < fi^^\ 
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Vm ni • • • XXXX 

r cm ^ . .xxxy. 

i .p d 'jcsSi#4> d “iTi^ €■ 5c . p as^'tfer^ JiHAa ,«? or ^ 

■•''T - . '. ‘/vvi-'J 35€j-v 

it ^ ^'v- x: ri< ^ ^ ar ^ ^ k > 








f ' 






II3S 












.. 4 ,... 








i' : 


r' 

. 





■j>'- 



























use a&^'j-77’U>x 


Z<DMTI,i, t^r(D^^ 

btiT t-r. 

■- kacnW 

4 —SIM] 2 ju J^[E.-rs 1 ^t'l' h»ro 3 sa*:^j!:»c$S 5 os-r. 

5 — 1 m ^1 KACNV$«S;?:5IJ» 

6 — I3t glJI A$ = KACNV$(B$) 

PRINT KACNV$r7-1''?ABC") 

7 — <X¥ 7 iJ> 4’0 2 ^':t l^'M *J 5 , cot# 

2^-t-f h *rfe^S:#:9iJ4>© KI/KO 3-K(±-r-;T®0»*'nS1-. 

*i 5 , wcE-rs 

TV'-St, “Illegal function call" X3 —t'SDSt". 

8 — a*: <S:^?!)> 4 © 2 /nM i-*¥ftS:¥tiiEL< 

9— #ffi:AKCNV$, 35 


1 . 

2. DISK^-F BASICT-0,^W?A^#^TS>5 i 

3. ■^mm" tm^^Lxh^ott. 

4. ®|g. 

• 721^7 7"^7 ^©AX^Ti^^tL/c^Sgtt, ^Ot t ^^© 721/7 7 V^XtJ 

Ltt. XtJ-r^m'^ii, 2jN35;^TfeA:5t^T^)*^^V^S-arA. BASIC ttA;^§tl7c#^ 
m) g«]WC 7 ^TA 3 fc^C^^Ct 7 . 7 c 7 cb, 7 V 2 i^ 7 ;j--r -'>3 7 (”) T 

DATA^T 42 ClBIzE$ti 7 >:X^?iJ^h"«, A 5 :^i:/jNS:?:©ESy* 52 Sr$ 

&miC!;c^\:xm^'^<‘^X <ti^i\ 

• « » xmtflfz-^^^i, 

• (C ]) THStlA^Sgtt, tXi'ayX^D^V^tiZti^X^tt. ^BSL 
fcm^, T7;i-2W hm (BASIC 

tltt. 


35 










n3$ ')y 7 vyx 


CLEAR [, <>^ij<7)±|®>] [, <;?.:?$>] (. <!£ 

t. bbT, n fc#*T#IST§ 11-. 

LA^L, ^tilii 

fu03 D tt. 

tzti.i£, ±m(Dmx (Dj^m^t^m'^it, <^©j:af-b^-r. 

CLEAR ,, ix^y^ay-X^^y 

^fio, i^(:©i-5 C^''°7y<—VT tfcfi-fe S 3 a y (;) J:-5 

a, 3 y-T^f i^y'ici-fe $ 3 n y fe-^4tcr#l&bi'f. 


INPUT {iyuyyv-p:> 


] <^iS[> [, <S!iSc> •••] 


• ±13©*+"* 7 3, ^*'y 3L:i^©f3-§-±^*'V 3 0, ayy (,), -fe 5 3 n y ( ; ), 

■vT±X|3^ (-), ( = ) ^i:'©l3^tt^ + ±:^>:fiMCiEL.< A:t]t^±. 

• ^B&fB-t "•••" ©®t<^S«, HT®fF±:R+ (255X^) ®rt±ffiE®le]i!t^D3I±ii: 

^ ±. *: t * if, 

DATA <^i!c> [, <^^> •••] 

^if, i:^® J: 5 ^ff3KE*^'^tbT*±. 

DATA 0, 10, 15, 20 

• mmmMoymx (Wx, Wy) tiB+±'Cv^S®(±7-;PFffi^§, (Sx, Sy) tix^y- 
yj®®**bTV^^±. +±STEP(x, y) 

+ +®ftfe/c±C(X, Y) tf3 + nTv>l.®fi + -yy 

±. 

• *5^®4’± <fT#^> ^T#^®flfe 
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6 . 

7. mn. 

8. a*. 

■ DISK^- KC-OInT 

Ne8-S:$:fg BASIC(86)'>XrAr ^ BASIC "DISK^-F" h 

Ufa, ROM N88-BASIC(86)=&^ai)C7s«-^=& "ROM^-F" 

(r^ 1 ^ 1. ROM ^ - F BASIC i; DISK ^ - F BASICJ #83). 

tt M BASIC RitgT# *n r ^ x ^ 7 r -l" ^ ® -5 ^ (i C * t # 

DISK^-F BASlCT©.^»-{Effias z: ^-r. ^©DISK^ 

(DISK^- F) 

tHjiat, gsy-e#?.KtT#t) ta. 

»ti|5M)IC©45-r, I0#MIS(SIN, COS, TAN bTlglfg 

lll!!:l!©icfi«'#^S tisif^eilicai©!*^, ^©ftfe©l!Sjffi^#;iS t#IIS^I!Sc®©fi§l# 
S ^ DISK F BASIC TLi^m - ti^T^ t^A.(D 

-raEbT<7i$l.\ 
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ABS 



PRINT ABS(-1.000000000000001) 


D t-f. 

#88 : -9->7°;W7°D i/7 A 8 


AKCNV$-'<-« 


M m 


LUM 

[53 

jt gij 


AKCNV$«:$;^5IJ» 

A$=AKCNV$(B$) 

PRINT AKCNV$(’’'l'O/\0:$:SABC^g”) 


^ B u T tt ^ t ■& ^. 


#BS : KACNV$, > 7“A 7“n i?' 7 A 35 


ASC ”* I 


I ^ 

I 15» 

m\ 

^ 7:? =i- K S -r, 


it 

ASC«3t^5iJ» 



A=ASC(”NEW”) 



PRINT ASC(A$) 


#08 : CHR$, -9-y7“;U7°Di?*9 A 23 
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ATTR$ 


ATN 


m lb 


ATN«iC5t» 

ANGLE = ATN (Y/X) 

PRINT ATN (-3.14159/2) 




: TAN 


ATTR$®'“‘^-n 


m m 


m m 


m m 




ATTR$( 


#<■7 7"1' 


) 


PRINT ATTR$(1) 
A$=ATTR$(”1 : TOOL. BAS”) 


4--/>§ixTv^S 7 r T r/7 7±®7 r T 

”□□□”: a^©M^aib, 

’’RDD” : *§3A*.®^K, ^ (*§)A//f|:^§i;7^'J±0|^^®l:b^ 

^ i'y 7) =&tT>'^ S t". 

’’□□p”: 

”□ E □’’ : P 7°7 3 70 ^ T SAVE S 7 r T 


#,^:SAVE, SET 
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AUTO 


AUTO 


m m 


AUTO (, <mm 

fy AUTO 100, 5 




AUTO ^^tTi-51 Jiim, ') 

<tT#^>, <ii^> ay-^i)ih^X <m^> 


C ttzii, STOP+-^ffUS 


$#BSUA’«-erCtt, EMKHtTb/c k\iTOzi-7'yV<Dm^i}m^^hiXtt. 

AUTO ^4’-li:UT n vy fe b-5 Ka [cfRLl + 

^ y X X (*);65 ^^§^t, ZCDt^, X^iXtjLX V t. 


ii, ^(Dfrmm^ntt. 


rK 


BEEP 


l~ii 1 

# it 

3t i?y 


rtjix U-* ^R|p> L/c 0 , ±iiifz 0 L s -r. 

BEEP [<X-1''y5^>] 

BEEP 


<x T 'y xy 1 ON (P| 0 O U), 0 (Dm^^ii OFF(P,| y ^tr) t ^ 11. 

<X^PRINT CHR$(7) t -®B#rp1Xt°- 

; -y-y7°>'i^7°aX'-7 A 31 


BLOAD (DISK K) 


3t M I 


^«ifT'T'TyF^y«^U±(CP- KUST. 

BLOAD <yTXJ\'X'(7.-^i)Zf^> [, <P-F7'KUX>] (, R] 
BLOAD ”SUB1”, R 
BLOAD ”SUB2”, &H100 
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BSAVE 


y±Cn-FL/>:v^ r ^ Xy'± J/sRS-232C HI 
IS±0®«^7 r y-y 'f X-'X®X r-f ■7°D7’7ATfeT-X'Cfc*^tt)^i.O 

<n-F7Fi/X> tl/c DEF SEG yi/c-feX'X 

X h^-XK, <D - FT F^X>T-^;i^yi,y:7 Fl/X(tgM7 Fi/X)^iD;t/>:S:®*^^n- 
F 

<n-F7Fl/X> DEE SEG 7jg£$yiy:-feX*X 

7 b ^ -X t::, 7 r ^ *-fe-77 S Pic BSAVE 7jg^ L fz P€^7 F 7 X (^g^7 F 

7 X) S'in7 n - F tl ^ 7. 

R7 7'>3 7«-Jg^7?. t, ^Mf^Xr-y^w^n-F^, 7n77 

AtbmtT^r?fl^&US7. E/cA^^oTClOJl^, Ji^7l.««^7T'f/KJ, 
n7*7A7^< TS^D ^•a:^. 

R7773 7^Jg®G, ^?.C <n-F7F7X> ^ottTn-F75:^-a-ca, -^-7*$ 
tlX'Pi t S#itec n - F $ tLT fc -3* ( y n 7-7 7VW/^) 7 d 77 A 

tt. 

#BS : BSAVE, CLEAR, DEE SEG, LOAD 


BSAVE (DISK^- F) 


m m 


m_jt 

SIS 


7 ^ IJ ±(7)^g^lBH<7)rt#^, X -f X i>±*i. I'Pi RS-232C Iili||±C^«^7 
T'OltLX-H-yLtt. 

BSAVE <7r7^l/X'fX7'J7^'>, <rjflte7KbX>, <*$> 

BSAVE ”SUB1”, &H100, &H2FF 


<7 r-y-'i^T^ X7 y 77>Ctt, 7^y±0F3^^'fe-77SPiC«ty--g), r^X7±$)S 
V3 tt RS-232C 0^7® 7 r ^ b i 7. 

<lfl^7F7X> K(i, -Ir-7'^^$&75#ilfe^ffi5^7 F7XTjg^bS7. 

<*$> Ctt, ^r-77S7 7: y±©0#®^^M MS^fg^bS7. 

BSAVE tt, *SuC3lfT$yt/iDEF SEG 7jg®$yty:-fe7‘7 7 b-i-XC, <IS$&7 F 7 
x> ofi>&iP7*#ifim©ai^7^ <ft$> 'U SM^7 bT-fe-7 

bi7. 


#aS : BLOAD, CLEAR, DEE SEG, SAVE 
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CALL 


CALL I 

y^') u, mnbtt. 

CALL C«!ligf> [, <?li![> •••])] 

CALL MUSBR(X, Y) 

CALL M(ARG1$, ARG2$, RESULT$) 


m m 

W~^ 


^. ZOtzibiZlt, FOKE^ BLOAD z tt. 

CALL^m^ri-it, mwlizmn^ntzDEF SEGCJ;oTj§^$tl*-fe7^>L-<-X 
iz,<mm^>Tm^LfzmmznA^tiri^6^nr f yAm^in^tz^mizm^fAmo tr. 

CALLtcJ:-cTn?t/tii^tLA77;L-7 7tt, IRET J; 0 BASIC Kfijffl]=& 

EtZt;t)^T^tt. 

<^IS!(> <D^limLlj^iZz:>l^ZH, BASIC 


: BLOAD, BSAVE, CLEAR, DEE SEG, POKE 


CDBL 


m » 


m m 

s it 

3t m 


CDBL«iiC5t» 

A#=CDBL(B!/2) 

A#=CDBL(256%) 


WL(Dmti^h^ n^fifzmnmmt, ^^t^m<Dm.tnDmwi^t£hm.WLU<D 

#,^:CINT, CSNG 
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CHAIN 


CHAIN®'s'<‘^-n 


m m 


3t fflj 


CHAIN [MERGE] <7 r -f '] T":?) [, <^f#■§■>] [, ALL] [, DELETE 

<ISH>] 

CHAIN MERGE ’’TEST. BAS”, 1000, ALL, DELETE 500-600 


CHAIN t, rT -'Hi, 

D- F$ti5 7°n7'7Ai;:^|§»m^1-. OPTION BASE n- 


(1) MERGE:i-:^'>a>^^fi|Ly;ii^ 

/^y±(D7°n7*7Att}'g*$^t, <7 r T ^ X 7'J 7°i^> Tjg® t/>:X 

n7'7A*5n— 

7* 7 A ® ^ HfT^ tl 11". 

ALL^7’'>3y«, ]liSg^0Xn7"7AC^IS, iB?lJ=&^lS1". 

Sa?y/i0>&^l#?gt;^eV^Ev^9«^ttC0MM0N (COMMON#^). 

DELETE:t7°'>3 ytt, 

(2) MERGE:j-r'>3>^^|^L/-zit^ 

7^-1)±®7°d 7'7AE, rV X7*^?)n—F§tL/c7°D7*7At*^ —'7') 

t>too7’n7"7A 

<7 rT^i-r ^ 77'J X7>tc:tt, r ^ 7 7*^?) n—F-^-S 7 d 7*7 A^tg^C t f. ^1®:% 
•^, fV 7 7A^6n-Ft'-2>7’n7’7A«, -ii'-f 77^--fe-7‘$tL/c t ®T^f0 S 
-It A. 

li^m® 7“ n 7 7 A ® ^ HtT $ Tl 17. 

ALL7 77 3 y®®i/H±, (1)E 111*77. 

DELETE777 3 yfcJ;7’<|gH> ^Jg^75 t, 7 ^'J ±® 7n 7*7 A®1g^®Hd^*giJ^ 
T7 77®7n7*7A®Jl^*^*1f7tl*7. <iell> tt, "200-300" ®j;7i;:, 
##=&vT77f3#7-7;&V^7l^g^tS7. DELETE 7 77 3 'y7l=g^7S <|gia> ®1 t#^ 
« RENUM ^|ltT7S i;*#»7e.1xt7. <I5H> ®1g^C«, 

tt. 
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CHR$ 


<tT#^> kLXy'Ol'^^W.^ 

DEFINT, DEFSNG, DEFDBL, DEFSTR MERGE a 

F $ tltz 7 °D ^'7 A C \tn(Dm^ -^;i ^ -^^^. 

7°n^'7A^3l^1-€. t, DEF FN, COM GOSUB, ON ERROR 

GOTO ^if©fj() hf£K)t-r. 
t£^, OPTION BASE«, m^'^(DXv ^Ty 

#fi3: COMMON, V>XjuXv i^y A 1, 2 



PRINT CHR$(&H4E) 


<IS5^> OlfiO^-^-7^^3-F=&ifo:5;^=&l#^t'. fij!)5 0~255 
"Illegal function call" ^7 — 

#,^ : ASC, ^'yX;uyv:/yA 23 



A%=CINT(X #) 


<^5^> CDliO/J«OT^ral^5EAtTgi^C^mCTcffl§f#S1-. ^*©11*5-32768 
~32767 ®|gHK’^t^:»^tt, "Overflow" 

#08 : CDBL, CSNG 
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CIRCLE 



glj 


jnmy] t, [, f c, 


2 > 


h ') >^> 

CIRCLE (80, 80), 40, 4, 0, 6.28 
CIRCLE STEP(40,-20), 30. F, TILE$ 


]] 


7-;lFJ®^©(Wx, Wy)^4''L'i: L, i 

^(i, STEP J: C 

O^uy F#^l>ti,S< P3©•fe^^^”^'y COLOR 

TJa^^tiTli-g) 7 y F 7 —'V F C>tiS 7. 


gICtt-2;r~2;r©|gH(?r ttP3Jf ¥)©7'77 7(it«-J§®t t7. #BS75 L 0 h 2;r 


<ib¥>tt, n©ii¥¥^(SiI^I^©W/ 
(;d<¥;^^©7ti)TTI^Lt7. 
set7, ffiP3&IS< et*57§t7. /c/iL, 
640X400 F'y h ©7-Fn 
Sili®±©fi$©J:bSp7Fg^L, 640X200 F'y 
F©7-F7tt7©l/2©ii^Jg£LS7. # 
640X400 F'y F©7-F7 
tt 1.0, 640X200 F 'y F ©7 - FT« 0.5 
7. 

<j:tm>*^ 1 (640 X 400 F 'y F © t #. 640 X 2 

l^©^gtyk¥:^I^©^fl©'5 7:7§v>::^c 


TT 



30 F 'y F © t ^ tt 0.5 L(^) ©Jl^, S* 

;> 7>iD, 640X400 F'y 


F©^-F©:»^, <7g> ab$> *nL(T^Stt'fitft©llRt*D, 1L(±^^6> 

(f«ft©ffiRt^d:0 ^7. 


F $'Ji^7S t, R^ffi< © tllB#^e^©p»ga5^</^°^''y F#-i-2>7jg®$tl.*^N°i/'y F© 
F 0 7 7'>([2)PAINT#fi§)CJ: 0Fg$$tL/c^1*7ifci(3-7,^’Lt7. </■'” 
w-'y F#-t2> B±LF<74 ’;lx F 0 77'> t 6 v F© 

fe7itiDo,i4Li7. M 
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CLEAR 


: CIRCLE -S't, Wy)C^^$n-St. 

#BS ; COLOR, [2} PAINT, A 14, 18, 21 


CLEAR 


m m 


3t fiJ 


CLEAR [<y £->'\°7>-:J'>] C, C, "y $>J 

CLEAR , &H9E00, &H400 


t'<r(Dmmm 0 c, 

S/c, DEF(DEFFN,DEFINT^ir) 

CLEAR m'^(D 3 y V (,) ii^£^-fAtir < fz 

<y^^')(D±M> (±, -ferJ'W 

16 /sfi)-e^g^L ^-f. fi 

16-1) #1)131BASIC (DW.m 
±ISiilLLSf, ^©SlteLI^CgA^tL/cT- 
A«, BASIC 

<7 7 y ^ <D±^ «, BASIC*5for, 

GOSUB, PAINT ^ if ^ -S X ^ 'y i? M 
LSifTTi^Lt-T. U-fe'y L 

N88-a*®BASIC(86)<7)>"E'J l"(70 h«S 

LSI-. 

^^L^njgSLAMi0 16fgi:^'9 ST. 

#Bg ; BLOAD, BSAVE, FRE 



DMoic/ ijcrn 'i *0? 

(7)±p.g 


lOOOOi, 


2300m 


nnnn 
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CLS 


CLOSE I 


CLOSE #1, #3 

CLOSE a, OPEN },: J: O 7 r 4 tt.MC r ^ /uizMLZ 

<7 r ^ S L, OPEN TtS^bfz 7 7 

t. <7r^;wS^> mM:(D7 r 'f t^izmC6 z tA^-C& tt. 

f^C6tit:7 r-i T'f |5li;$)-i>i/^(iM^-2> 7 r-f < 

-I t1-. tfcmC6tifz7 ^I'H, mu$)6<^^iim^7^tz7 r-i /u 

S'^C J; o TSt^W i; S ■?■. 

7 CLOSE t, y^''y 7 rC^oTv^^r 

zmzisb, 7 r ^-'U©{±i*M=&iEL < 1171-^ Jitt, CLOSE 

®|ltT*5iEvg-C^. 

R L® RUN :fc i t; R Jt^^LO LOAD «, 7 °d 7*7 
tLt:vi?.-f^T®7 r^^=&Sii)WCllflU t/c, END NEW ©HfTCi: oT 

hS : STOP Ttt 7 7 ^ U a .1 i: (iT^ t-»tA. t /c, END tvf C 7n 7*7 A 

#B3: CHAIN, END, LOAD, NEW, OPEN, STOP, -!f 7 T";!^7“ 07 "7 A 26, 27, 28, 29 


^ m 


5t 


:st 0IJ 


7 7-i'-'L^r?flusr. 

CLOSE [(#) <7 7 7^L#-t> [, [#] <7 7-i)im^>} 
CLOSE 


CLS 


^ tl 


7 ^ X -f ^ ^ iJ 7 L S T. 

CLS 
CLS 2 


<®tg>ttl, 2, 3®ffi^t!3, CfiltST. 1 

T. 
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C1) COLOR 


1 : r + X y 7Ut-r. r + X F*^XONSOLE, [1] 

COLOR ci y, eny /n*-x^- < ^y s 

t. 

2 : 7 ^ y Xfflffi© h^rL-7°-bp^^x y 7 L t 7. x'7 7 ^ >y 

SCREEN CJ; y 7-^-F(c|S£$n.Tv^S«^Ctt, (l)COLOR CJ; yjg 
^$n/c^^''yXX*777F;*7“-^, f’o.-df- b F^^'X y 7L^7. 

3 : T + Xbli®, X'77^ >yXiiiffi©]S|;^$-X y 7LS7. 

r7X bilffi4-X y 7t6Ma, CONSOLE Fc J: oTbB^$tL;^cXX n-;L7 ^ > F7F3^ 
Xy7L^7. ttc, X*7 7^'y XBffi^X y 7L/i«^Ctt, LP(ft;^#M;^)« 
b <D&±0]M;^i^^U Ltt. 

#,^ : (1] COLOR, CONSOLE, SCREEN, VIEW 


[1] COLOR 


m ti 


#^ 


3^ 


x-fx7’U'fjl®©#a3©fefc'J;0'X'77i' >vXli®©/<U'y b^- K^^I^L 

tt. 

COLOR [<7r>X'>a>=i-F>] [, </OyXi/79> K*7->] [, 
-*7->] C, <777X^7'X> F*7->] C, </N°U'y b"&-F>] 

COLOR 7, 0, 0, 7 


[IjCOLORFi, r7X biBffi©35:^©:*7-^^X./>ry, X*7 7 ^ 7 XBffi©7 ;j-7X*7 7 
7 F, ^^''y X X*7 7 7 F, 7” —X’—©^7 7 — y, X'7 7 ^ 7 XBffi©^''°7 7 b ^ 
-F^Jg^L*y7S©Ki^fflL^7. 

<7r7X737n-F>«, t 7X bBffi©7:^Fcv:>6v:>?>^c^|g^-^717. C©7r7 
X7373—Ffi, t 7X bBffi^i577 —7:—Sll7— 

CioT, f«#*JM^yi7. 7 7-7-F/eM7-F©-®y#;Ltt CONSOLE TfT 

V^S7. <7r7X'7 3 7D-F>7tg^7-Sft«, >y bS-f-" Ttt* y i-li•^©T, [ 2 ] 
COLOR C J; ^ T 7 7 -/N° 7 >y b ©^MT L ^ -fr ^. 


ail7-K©li^(CONSOLE ,,, 0) 

0 : 7-v;lC1^©^^) 

1 : '7-X 7>y b 

2 : 7<jy^(j^Mt^) 

3 : 7-X7'y b (1 LBU) 

4 : y-'s'-x(stei-^) 
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C1 '] COLOR 


5 ; y/'f—X'>—i? l/'y h 

6 ; y/^'-x:/y 

7 : y/N'-X'>-^^'y h (5 fcili;) 

*7-"E-K(75^^(CONSOLE ,,, 1) 

0:« i:» 2 : m 3:^ 

4 : ,li 5 : 6 : ^ 7:6 


</N'>y ^ 'i'> K;6 7—> (i, 9 7'('y ^iSM<Di^(D-&^^L t T. /—7 <ii, 

VN°i/>y «^N°U'y L^-F> [2] COLOR #^) C J; 7 Tjg^C t f. C® 

/~7<DWi^^CLS i:iXyXmm^7 V 7ti>t, i 7 T 11^:65D C-ti 

t-r. PRESET t, 

0^y7 7'y7>\f:>}y~>tLXim 

$^^7•>:/^”^'y F#-t«, OOfcifi*, 0 i; § ttfi L tiS-f. 

«, BASIC CioTiia C t®T^ 

•r^)0T, 

o:m i:W 2:#^ 3:« 

4:p 5:yK-fe 6 : M 7:6 


<7H-7’-:^y~> :bm^$n6t, 7-^-FTL 6*^-FTfe, iiiffi®^#C-fe(6 

M(Dt'( 7 ^j:is, Z(D^^y 7— 7 hi, 



<7 tr^y^yVijy-y^i, 77 7^ t iG'KbtiS 

:i(D^<y 7~7lii, y m7(D7y7 ^ y7 

^^(PSET, LINE, CIRCLE ^ LOT t < C^nST. 

6s^-F(iiy9'fPtg6«^-F^-^tf)T(i, <7 t77y7>\^:i}y->tLXmm 

$tL/c-'N°i/'y 0(Dt^itm, 0L(^®t 

<yN“L'.y F^-F> {±, 7'y7 4 O^yyV 
^-F> i,zm^'c^^iUt^(Dmmri^(Dbi3y)x7. 
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(1) COLOR 


Tt. 

1 : 4096fe4J*8fe^-K. 8fi®/N°W'y h K 4096fe4'©ffiE© 8-fe^^^j;colt-S^ 

-FT'1-. 

2 : 4096fe4>*16fe^—F. h ic 4096fe4’®{iE® 

FT-r. 

N88-BASIC(86)©|ai)a^©/N°i/>y h F« 8fe4'-8FT-f. <^^°^'y F^- 


F> F*-F*^'® 0#^) 5 tt. F -y F h 

iijy-a- F ii, [2] COLOR tc j: 

oTiSS^tit70T, #S§tT < 

</'s lx 7 b — 

F>*^'JI®$tLT^N°i^'y F^- 

h, 

^(DtzXfhZ 

:/<u y h t'^ y 

-3- F©p^tt<7® j; ^ 




8fe4»-8fe^- 

F 

4096fe4»-8fe^- 

-F 


</n“Ix y h ||^> 

<;*7-3- F> 

</N“lX'y h#-^> 

n 

) 

\/ 

-F> 

0 

0 m) 

0 

&H000 

(M) 

1 

1 (0^5 V^W) 

1 

&H00F 

(BSSI^^W) 

2 

2 

2 

&H0F0 

(BJSV^#) 

3 

3 

3 

&H0FF 


4 

4 (HJSV^e) 

4 

&HF00 


5 

5 (Hg-Sv^yKfe) 

5 

&HF0F 

(B^Sv^yKfe) 

6 

6 (0J5i/^Jt) 

6 

&HFF0 


7 

7 (S) 

7 

&HFFF 

(S) 

4096 fepf5*16fe^- F 




</N®lx 'y h #-^> 

<;!77-3-F> 




0 

&H000 (M) 

8 

&H777 

(Kfe) 

1 

&H00F (HSav^W) 

9 

&H00A 

(ij/'LBgv^W) 

2 

&H0F0 (0JS(.^|S^) 

10 

&H0A0 


3 

&H0FF 

11 

&H0AA 

(XLBfV^^) 

4 

&HF00 

12 

&HA00 


5 

&HF0F (BJSV^yKfe) 

13 

&HA0A 

(iF'LBfv^yKft) 

6 

&HFF0 (0J-5».^«) 

14 

&HAA0 


7 

&HFFF (6) 

15 

&HAAA 



)±S : 4096fe4'*8 6^- Ffc’J:t/4096fe4’-16fe^-Ftt7^ni/RGB ^fSr ^ 

Tf-D7 RGB^lEr'f 
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iz) COLOR 


#,^: [2) COLOR, COLOR®, CONSOLE, >7°;W7°n A 15, 16 


[2] COLOR I 


COLOR = (PAL, COL) 

7 ^'y ■f-7—'y h C i-oTfTV^ 1(2]COLOR 

ht, ^(DiJ y \' 

<y\“L'-y L#-§-> 15) O 8 f@ ($> 5 16 fi) ® 7 b 

<:*7-3-K> K(i, <yN°iy>y ls#-^> 

/^°^' 7 L ©filSiJ J: t/:* 7 -7 - K©ffltt, /n°^ 7 L F ([IjCOLOR #3^) C J: o 
Vtt. Fcio (':!-& </N°l/7 i; <:*7-7-F> (DMi^Aiik(D t ^ V Tt . 

Sfeif-Sfe'E-F 

0~7(O <^^°^'y^#■^> C0~7©8ffl® <:*7 —7—F> ^HMh^ia^l-tt. 

4096 fe4i.8fe^- F 

0~7© 0<uy h#-t> C&H000~&HFFF © 4096 B® <:*7-7-F> 

L^t. 

4096 fe4^-16fe^:- F 

0*^?)15© </N°w-7 F#^> (::&H000~&HFFF© 4096fi© <;{77-7-F> 

JiSLSf. 

t*©^- FfCloV:>Tfe, ^^°^'7 F^-tt ;</7-7- F«f£:tC^)*^-ar'2. C tl". 

ttz, Bi;j6 7-7-F§aiSC©/N°^7 

#^( = ), F#-^> fe±t;<^7-7-F> ^^ULT, "COLOR" tfS t, 

7 F t*7-7-F©Mfi^|i[]M{b^SCh*^^Titf (DISK^-F-C©^W?i)). ^^°l^7 F 
t jt/7-7-F©WffittSCMLTB, (1) COLOR ^#ML-C<7->:§V\ 


m m 


m xt 


s; m 


*7—/N'U-y F©fe^^ML Sf. 
C0L0R(=«/\°U7 F#-§->, <©7-=i-F»] 
COLOR = (2, 4) 
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COLOR® 


a®: ^^~Y\z.is\moy~a~Y(D\uh^<Dm\mt basic y-—^~xy - ^.r 
LX < 

: (1] COLOR, ■+»->7°;L7“n;7*7 A 15, 16 


COLOR @ I 


COLOR@«, r + X 2^(X1, Yl), (X2, Y2) 

LSI-. 

(XI, Yl), (X2, Y2)ii, S■^t^. 

<7 7 77 7 3 7 3- F>«, CONSOLE CS oTK^$Si-Tv>•?. ^- F C S oTjf 0*^*5 

0 s-r, Ls[i) color® <77777373 -f> ®:®'nt 

So/c<|WI1iTl-®-C^-LL«’#^LT<y«:$v\ 7^f(LLTjgfflLS 

f. 

T + X ifC^LTW^-C-r. 

S-y:^. STS L®^^«’»TL/S^J^®±tcff L < 

C0L0R@-Cjg^L/c^^l^Kail^-FTffi*^n*7'7 7^ 'y7X*5^S^^a, 7* 
77^ 'y7X®fefe COLOR@Tfg^L/cfeC^fcD St. * 7-^-7 ^ 
7 7X«, COLOR@®»S^S^tS^^^. 

#08; CONSOLE, (1] COLOR, -9-7 7“;L7’n 7*7 A 33 


m m 




:st fij 


COLOR® (XI, Y1)-(X2, Y2) [, <7 7 777 3 7=1-F>] 
COLOR® (0, 0)-(79, 4), 2 


COMMON (DISK =E- F) 


m m 


# it 

3t 0IJ 


CHAIN *'*||^T^n/i^, 7^ ij±®7’P7^7AA'ib, A 

t=Elg[^!l#5JtLS-r. 

COMMON [, •••] 

COMMON A, B, XY(), NA$ 
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COM ON/OFF/STOP 


COMMON tt, CHAIN (C J; oT/^ 'J ±(07°n r t X 

CHAIN-CMERGE:t7°'/3 ^ U ±©7“n^*7 A t ^^ X ^±© 

X“n X*7 A hn/c^07“D X*7 A I #itC S t. 

Ltci^^r, COMMON (i/iis-f CHAIN t tfc, AF^Cfc’V^ 

T, COMMON tt CHAIN 0 tt. 

<^m^> (± HT©fFt-|6H(255 /'<'/ 1 ^(DX" 

n/*7 A 4>© COMMON TUC^iSciS^Jg^ tt t 0 

f^T©'^|SC«-^|^ffiC;^cV^©TS.tO±', CHAIN © ALL:t7“/3 
#,^ : CHAIN, -!F/X°;pX’oX'7 A 1, 2 


COM ON/OFF/STOP | 


^~ll 

# it 


3t ^J 


RS-232CIil^A'ib©ilJtjiA*.<©ffpI, «ih, L S f. 

DCOM [«[ili||S^»] ON 

2) COM [«[il^S#^»] OFF 

3) COM C«[il^S#-^»] STOP 

COM ON 

COM (2) ON 


RS-232CIl!ISC^g|57!)^0©afH*5A^/-cC i;KJ:SfJ!9a^©fp^, ^±, 

t. 

6mbMmm(Dti^' o vt. «@^#^» y => t^w t 

tt. 


1 : RS-232C m 1 0^ 

2 : RS-232C H 2 0i^ 

3 : RS-232C m 3 HU 


tcfzL, 2, 3 (ii:ffl©//^7x-Xd<-F*^%i;xg-rf. 

*jtl) WiO&^isf'^Ltt. Tm <0li#^>T*fg^tA’RS-232C0i^CSlH*^*ASrt 

ON COM GOSUB 

L^t. 

m^2) w]v^^^m±Ltt. Tm ait*s«.oTfe®a;p-f-/-vo^iKtt^ci3$*A. 
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CONSOLE 


^y-s©^lK«e; t) t-a:^. Li}^L, ^(D'^,COM ON C J: oTflJ») 
n^k, stiicafSds^o/c;! hcioT, 

a® : 7“n^'7A®ll7BtC«C0M OFF ^^tTbT:teV^T </c $ i/\ COM ON «, RS- 
2320 0,^^ OPEN 

sij V y csijp*5^s t gKS^cfj o t •? tt(DT, 

WlV^^itlim^l'-^yO^mTitCOM OFFS-Sv^ttCOM STOP =&^tTt^v^-C 

#M:0N COM GOSUB 


CONSOLE 


m m 


3t 


x+7. hiiiS^- Kco^^^^Tt'Sf. 

CONSOLE [, <;^i2P--'Lffi![>] C, <7T>t?'>a> 

+—iS^^T'vf^>] (, <* V—'V?^>] 

CONSOLE 0, 24, 0, 1 
CONSOLE ,. 1, 0 


-Cjg^L^fTFill^©, <X n-;HTi!r> TJg^C:^ctTl!f5F^, Iiiffi± 
X’X^v~jut6m^iX^v~;U'y ^ >V'y)k LXm^Ltt. jli®®^ 'J 7(CLS 
SPRINT CHR$(12))tt, ^(DXXo-fUK^ -i yV’yizMLXm'lJ-^titt. 

<7 ryf'ya vi-y^ l t, iii®§TtTK7 r >^2 j/a 

<;&7-/eilX^-y^) C 1 §JgSTS t, r + X Ljiiffi^;<;7-^-KCL, 0 ^Jg^7 


#B^ : [1] COLOR, COLOR®, iFy7;L7n 7'7 A 33 
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COPY 


CONT 


m m 






STOPCTRL| +[cl(7)A:tl. ttzitSTOP l,Zjzr>XW±Ltzya^ 
■7 L S "f. 

CONT 

CONT 


STOP CTRL + C)(DAt)^, 


X'a^'yAfp(DST0F(Dm'l7iZX^XX'ai^‘’yA(Dmn^W±t?> t, VX~FTW 

^©^,cont zthzx*), 

7°n^*7i ht^X^ 


)±u ■ m.fiw±^\zyu ^'y Ap^m(Dmw.^'i7yfzm^<>z\±, cont izx^mmmmtx^ t 


COPY I 


COPY 

2WM(OWM'^- F 3 

(1) ROM X:- K BASIC DISK K BASIC >yf^ SW6 (D 2^b' 

y FA^OFF ©IfB-. 

3 ^\ub Lxmmv^t. 

1 : r^x FiiiHo<^i&i±i;l7. 

2 ; x*7 7^ 

3 ; r+ x FHffi 17*7 X ^ 7 Xiii[S$'Mfe'«t>-ttTaj;i3. Cl© t ^T^x MiS® 

4 : 7*7 7^'y 7Biffi©*-^tli:^. 640X200 ^:-F©:®#CW?iJ. 

5 : r + X hBffitT’XX^'y7H®$-Mfe-Biy&, ^ 6<iZMl5^<iZ^4\LXliitl. 


m m 




3t m 


COPY {mm>) 
COPY 2 
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cos 


; PC-PR 201 ^^y 7 y" sws © 2 “^'^ h ^ on c t 

T < 

(2) DISK K BASIC T, U X'f'V ^ SW6 © 2^ t'-y h *'*ON 

3 bTSffiti-r. 

4, 5©®tgtt;6 7-tBy3®«^©^WaTt. 

1 : r^x MiB©^^tjByj. 

2 : X'^X^ 'y Xiiiffi©^§'t±5y3(:*7-ttiy3©lr-^, 

3 : r^x hiBSty^XX^ >y 

4 : x'xx^ 7Xiiiffi®<^=&ttiy3(SllttK®$fti5:vO(;^x-tijyjffl). 

5 : t 4^X t'iiffiiiX'xX^-y 

pc-PReoi^y; ±13® i~3®iiigic5^LT, 

i¥t < ii BASIC ^-±*-X-7:=.rLT^w^#^U-C < 

ali : PC-PR201 5^ t /ca PC-PR601 JSX’y XX X ^ y X ^ 'y ± SW5 ® 

2“ c-y h ON C UT < /f $ V\ 

ttz, *x-ttiyy^=fT^«^, i:^®^«l*^*±'g-ct. 

• PC-PR201V 

• X^ y XX X± SW6 ® 2 ^hXy h ON C±-?> 

PL < a BASIC :i-±'-X-7^a.7^^^#^LT < 



PRINT COS(3.14159/4) 


®fic^±55fe?£fi^f#s±, ®#f4aX'Xrx±ffi^Lt±. 
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CSRLIN 


#S3:ATN, SIN, TAN, ^’y A 6, 30 



PRINT CSNG(128%) 


(Dm^mm^ et /-ciit §f#st-. -uouie+ 

38~1.70141E+38 "Overflow" i-7 —!9 S'f. 

#,^:CINT, CDBL 


CSRLIN 


m m 

'13 


iiit © * - V ji^(D'^it.m s -r, 

CSRLIN 
Y = CSRLIN 


flS©*-y;U'©tT(Sit)fiiS^ + -v7^iS'ffi^-C|#t1-. fa©i6H« 25FTa 0 
~24, 20tT^-Frtt0~19 t^D^T. ffiiffi©ft±fT*5 0, 24 (S Ts 


: POS, ■^F>7°;^7°^y'7 A 10 
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CVI / CVS / CVD 


CVI/CVS/CVD ” I 


m m 


3 t 0 IJ 


u s -r. 

1 ) CVI «2 3 !!:^< 7 ) 3 t^ 5 IJ» 

2 ) CVS «4 3 i:^< 7 ) 3 t^ 5 IJ» 

3) CVD«8 3t^(7)5:!|:5IJ» 
A%=CVI(A$) 

B=CVS(”A3Bd”) 

C#=CVD(NUM$) 


ZilibOmmi, MKI$/MKS$/MKD$ 


CVS : 4X^(4/nM 

CVD : v)(D-X‘^n^Y^mu'm.m^z^mMKD%<Dm. 

UPtK yyVAT-^yr-i JU:d^6mMr~^ a, t -f GET -C7 ^ F 

#,^ : MKI$/MKS$/MKD$, f->7“;W7°ni/7 A 27 


DATA 


w~m\ 

3 t m 


READ 

DATA <^iSc> [, "O 

DATA 1, CBA, 1465 


i'^wo readdata^ji^ 

DATAtr^JCtt, lfT( 255 /^M F) C A-S TJ ^-fe-y h 16 Z tt. T-^ 

tti)K ^®4'C3y-7-<?>t°y;t F(.), 

7 'juy ^-r -'>3 >(”)T*< < y tt. 

1 o®7°D;7*9Ai;:ttfi*©iJ® DATAtT^a< >I t d^'T§ S-f. DATA tTtt 7“n A 
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DEF FN 


cjaOif READ ^)li#C, DATAfT^^Or — 

#,^:READ, RESTORE, ^'y^)V:fu^'‘yA‘i, 14 



DATE$=”87/12/12” 


DATE$izit'^t,zm.^(DBm^"yy/mm/dd"{^/B/B)(DmTXti^tiXi3>), 

■! t*^T^ ST. 

’Sis, ;i fcCS t), 6 Z. t ^t. yyCtt00~99, mm C 

tt01~12, ddJC«01~31®|gH®Sifefit^Jg$bST. yy, mm, dd (i, U 

y y '> i) S 5 K LT < ff $ 

^^''yr y-^N''y^T'yTCSoTg«)6^CMff$^t, lEL < S ^ C 

^-^Tv^ST. 

^m : TIME$ 


DEF 



m m 

# it 


DEF FN<:Smi>[«/<7>-:S^U;^ !'»]= 
DEF FNA(X, Y)=X * 2 + Y * 3 


DEF FN (i, z k(DTM '&m-fi>mmt, mmm 

WC, T®®i£©V^TtlTi)*"SV^S-a:A. 

DEF FNtt, TnT7A>TT'b*>lltTT5-tttT^STA. 

<iSiu> S■T^. 

4* K H—^o T S V^ S T A. 
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DEFINT / DEFSNG / DEFDBL / DEFSTR 


it, HT®igH(255/NM 

Lfzmmt ■'fn jt^ m-n^z/ta l tt. tt ^commtM 

tzfzV, ^m(Dmitm-Tf£ittil,i^j:0 t^A., 

;±E:DEF FN (D <mWZ(Dm^^> 'J X h> p*gc;S:v^ 

m^it, 

DEF FN (i, XtiiCX-oX^m-^tii>mW!.i^y"'o^'y A,^X’miit6mi^‘^'n-^tiX 

DEF FN tt.DEF t FN (DmiZ&-fA'^~Z^^XiiZ£ittH£^J:>)t^/o. 
fflSLTDEFFN t-r^tmWLtLXWihtlXLt\^^t.t. 

#B8 ; •9->X°;^:/nif7 A 39 


DEFINT/DEFSNG/DEFDBL/DEFSTR | 


m m 


3t m 


1) DEFINT <3t^c7)i5ffl> [, <3t^cD|®H> •••] 

2) DEFSNG <5:^(7)i5H> [, <3t^<DtisH> "0 

3) DEFDBL <3t^(7)t5H> [, CSt^CDtSffl) "0 

4) DEFSTR <:X^(Dmm> C, <3t^C7)ii5H> -O 
DEFINT A, l-K 

DEFSNG B 
DEFDBL X-Z 
DEFSTR L-N, Q 


<X^(Dmm>-xm^-^tlfz1C^Ti^^im^i, DEFINT-CaS^SlG, DEFSNG-Ct±# 
DEFDBL TttfgffSiliicaK, mFSTRTit^^miC^n^timmL 

<x^(Dmm>-xm^'x # §i x^-c, mmmmmt is^to fj: 

ViT-?-®fgH=&^Rt t-f. 


>iS: x(D^ifizi:-oxnt'tii>mM:9xv, !, #, $)(Dy5im^ 

#,^ : ^t-y7°;l/7°DX'7 A 4 
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DEF USR 


DEF SEG I 


BSAVE, BLOAD, PEEK, POKE ^ ^'J ©7 F t 

•f, 77-feXtJ;^ DEF SEGTh^*^\:^M.st6 

£'5*5$)!?S7. y 07 F^X©Jg$©PfCtt, KS7-S-fe77 7 FFg-C 

©ti*j-7 F 7 X Tjg^ Ltt. 

<-fe77 7F^-X> Ctt, -feXV 7 F©tia7 F7X* 16 7S!|-p/>:ii«'Jg^bt7. 

7 F-<-Xtt, VARPTRMISt-J: yf#5 

§^7. IB^yKoViTttiS^Ob'iiCSy-feX'^ 7 F t^oTVi^-fOT, ^^©iS^iJOg 

*^bl>v^tti3?yg*h^iSCK7X^rX•rl>:l^ic^i, ^©-oif-trX'X 7 F-<-X^®y^^T 
77-feX-r5bi;dS<2'^fc^y i7. 

: DEF SEG «, DEF t SEG ©rB^t^£'7'X^-x=£AtiJ^tttitf^ D t-frA. X^-X 

^^B§LTDEFSEG t7S bT®;i9tLT t ^7^-7. 

#,^ : BLOAD, BSAVE, CLEAR, DEF USR, PEEK, POKE, VARPTR 


m m 


it 




•tei77 7 F-^-XL S 7. 
DEF SEG= <-<2^/7 7 F'-C-X) 
DEF SEG=&H9E00 


DEF USR I 


o~9t-r©ji7, *Aiof® 

nm-r^bbt^T^t-t. 

fi%t(OT, USRO L USR S7. 

<ii$^7F7x> (i, <#^> EMcnff 

^ tlA DEF SEG tiA-Ir X'X 7 F ^-x ^ ©ffi^7 F 7 X Tfg® L S 7. 

USR7PfU^'tBLAv^;®«^M*Sc}i, ife U*7 ^ y ±Cffl*LT:fo'*^^ < y 

bOAfeCtt, POKE ^ BLOAD ,1 17. 


^ m 


1^ ^ 


3t ^IJ 


USR K7x^^^Li7. 

DEF USR[<S-§->]= <Mife7F'7X> 

DEF USR3=&HF000 
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DELETE 


: DEF USR (±, DEF t USR X^-X 

^^BSETDEFUSR tt?> bXWi.t>nX 

#,^ : BLOAD, BSAVE, CLEAR, DEF SEG, POKE, USR 



DELETE * START-*SUB 
DELETE .-500 


tX(DX-a^'yA^'§mLt.t. 
v^AXi3^]UT <ll;StT#^> :X 

<fT##> K u i; ;t F (.) S t BASIC ^ y i? 7“ >; F3® T > iJ' *5^LT S 

tt. LIST n-ry 


DIM 


ni~if 




m\\$m.<r)wm(r >±# $ l, ^^ u o 11. 

DIM <^iit^> «^^©SAfii> [, •••])[. <Ei!c^> 

gAfl> [. <^^©SAfl> •••])•••] 

DIM A(12, 2), B$(3) 


DIMli, |W|B#C7^'J±C^©E?!J®’P^5-fJ!5STS 

T. 

<mm^y (-a, LT]ELV>ff^«'L/>:fe©=&Ji^L*-r. 

i-tt, gAfi^Ji^usT. ^^©ft/wna, 

OPTION BASECi-^T, 0 CitST-S :: ti^T# ^T. H^KflJ 0 ^ixSSB^O© 
OPTION BASE*n©t^(i<is^®ftAIfi>C#L<, OPTION BASE*? 
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DRAW 


OPTION BASE DIM 

<m^(Dm±m> s t, mm»<D'A7t^ huf 

4j(255 ^<-f < ot 

tzfdL, J:z/ik7vmi, 

y § T #’ -5 fc, "Out of memory" -i-y — t^O MT. 

mmmnom-^, SM-C'32767fi, 

SScMT' 16383 f@, 8191 f@ t XTt. 

DIM ^-OlS^UCT-^T©5*®filtt ;^X V') > 

ERASE 

)±® : -^tifz i D t ^ ^ tifzMa (i, "Subscript out of range" 

DIM TSW< t >1 

10 iTCOPTION BASE*to -Cb 1 tT. 

#,^ : ERASE, OPTION BASE ^'yX/l'Xn ^fy A b 


DRAW (DISK^- K) 


DRAW ’’C7T150, 50Z=TILE$ ; ” 

DRAW-Ctt, ^tiC®i7'*7 7^ 

'y^fflB-y-T'nvy Ftt, 3:-5 ^cffM-CT. 

C0\”77-:?1>] [, 2>} - 

(1) 

Ebttt, B io it/N c: « <iiS!l^> 

B <itgiJ-T> T*^$ft'5-9-7*3'vy F®^tT(i^Pf KtifTfc-f, 

7*3 T y FlltT^©fflC b ^ T. 

N <liSim ■C^^tLSf-7'3 vy F^tT^, LP?r(0, 0)Eb^T. 
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jt 


0IJ 


i/7 7 < 7i7}aii-t)-:/3V> F^yntAt-oT, 9-lF KM^iT-UlB^fSS f T. 
DRAW 

DRAW ’’D50R50U50L50” 









DRAW 


vy F©|ltTtttT^9 

ivt\ LP*J(0, Oh^DSI-. 

(2) 

<y<y^~^l>, <y<y^-^2> ii, iU 

rm^^Ttsmbtt. 

[: ] 

i fcii. 


= <mm> : 

^©ilHUK(i#^( = ) 4r, S^Cti-fe S 3 n y ( : ) ;£■, 


<ilSim CffiS-rS-9-:/3vy Ft^© Coi,^TJiiTCi5iBJt S1-. 


A </\°-7;»< —^ 1> 


7^ y 7ffiiI-9-7'3yy F©J1MS^^, </N“y7-7 DC 0~3 

( 0 ) ( 1 ) ( 2 ) ( 3 ) 


( 0 , 0 ) 



(0,0) 


-►Y X- - 

Y (0,0) (0,0) X 

Af-y^vy FCJ:oT^IS$tif>:J®^*(iDRAW®7'y 7^ y 7|Sili^^7’3 v y F C5^ 
<^■'7 7—7 D (DitH 0 


C </N“y7 —7 1> 

7*y7^ y 7ffiB-9-7'3vy FCJ:-3Tffiiii$ti?.gIff^©Y\°y 7 
7-7 D C(i2N°y«y C-^^73 v y F C i o ;a/cY'?y >;/ h 

«, 7"y 7^ y7ffiiii-77'3yy FC^t-C^S?;^^)0-rS)D, 7 ;j-77*3 7 y F 7-^^ 
M7-S) ^)©T*(iS>C) t^±^. 

Dn° 7 7-7D ©{itt7;j-77y 7y F7y-t*oTViS7. 


64 










DRAW 


D 1> 

S-9-7*3 vy F§#MtT< fi$v\ 

E 1> 

LP*:>?., XiftCiS-^T <^n° 7 7-^ l>xx7-7Wil93-/il9iE©:;5l^K, $6^ 

YttK?&oT <^N°77-i!' 

F </^yj^-‘S' 1> 

LPd^b, XfiC^&oT </N°7 7-i5'l>x7 7--;Wi93-/ittft©:^Bc, 

YttC?&oT </^°77-7 l>x7^-MiI:^Ao:^BK^«)b*;Stre^=&ISBLS1-. 

G i> 

LPd^b, 3SJ®g*©Xttf^?&oT </^°7 7-^5'l>x7 7-;Hi99':^it9ft®;^[^C, 
YttC^-rjT <^n° 77-7 1> X 7 7-;Wi:9-IE©:;^I^K^i]b9c^^^ Til^^ffiB t S t. 

H 1> 

LPd^b, J|ffi^?^©XWC?&^T </^°77-7 l>X7':r-;uf(55-/il9iE©:^I^C, 
Y$iC»oT <^n°77-;5' iyx7.'r~MU^lE(D-^n^z^m\.fz^.tTUU^mm\.'^t. 

L 0<=7J^ — ‘S> 1> 

LP:&^^, mmWMOXmhC^-Dr </n°77-^ l>X77-Mi9>**t9M©:^B^^l)b/->: 
.■^tT'il^^lSBbtt-. 

M </\*77 —1>, </\°77 —:5'2> 

LP*^^, 7-;l^Fffi®?S©XMM= <^n°77-7 1>, YmU= <^n°77-7 2> ©;;^^T* 
BH^ffiBbtf. 

P [b\*77-:J' 1>] 

F 9 77‘Ti&9'0^’bt1-. <^^°77-7 1> C-9-7*3 

■7 7 FT^0^$^^T^^•I)^^°^7 P'9-7‘3V7F^lltTl'l)i:§tt, LP 

« 7 'f 7 F 7|^C>Sl9n(f9 ^-lt^. P •9-7*3 -7 7 F i -p Ti& D O-Kb ^fT3 Pf ©, 6^7 
-f ;PX F y 77*©JiS:^&C-7HTtt, Z ■9-7*3 v7 F^#,^bT < /i$v\ 

Q </n°77 —7 1>, </\°77 —7 2> 

LP*^?), ilM®^© X|ttC?&-:>T <^■^7 7—7 DXX^-—YT <^■'77 

t. 
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DRAW 


R 1> 

S 0<yy-‘$' 1> 

^’■7 7 ^ 7 i^Sifflf-7‘3 7 7 -^OXy-;WI(fp$) 

ML^t. <y^y/-7 1> 0 X*)iK^^J:iiS.Tt£hfrustic) A.. 

0<y7-71> 0imil 

T 0<^^7-‘9 1>, 0^y7-‘5> 2> 

Q^F:/37y^©F^gp^fot)o^^biT. T-9-:^3v 
y F{c:J:-:jTi&D-:3.^:b$'ff-5Pg©,fe^i5'^-'l-X h U yX'CfgS^^jiKOVi-Cfi.Z ^^-7*37 

y F^#,^bT < fz^^\ 

U </\’77-:S' 1> 

LP YlfiC^&oT, <^n° 77-7 l>xx7-Mi:9-^©:^[^i-#®]b/>:;SS 

T'iti^^iaiiibSI-. 

W </\°77-:7 1>, 0<.y7 — ^2'> 

LP XfftC^&oT <^n° 77-7 l>XX7-Mi^, Y T </n°77 

X 0<.y7-^ 1> 

<^n° 7 7-7 1> 'Cjg^$^t5X^^lifl^©7'7 7 ^ 7 7ffiili-9-7'3 vy 

iiib^l-. Ht/Xf-7*3vy </n°77-7 

i> ct±, iZ'-f”= <35:^^*5 c> : 


Y <y\°77-7 1> 

D, E, F, G, H, L, M, Q, R, U iJit/W T'T'n^y 
y'{y77'{)\'^m^\^tt. 0<y 7-7 \y\t, &H0~&HFFFF ©®H®Si!tT^f l/titt* 
7^ yX7'<-'W©l^§C-3ViT(i, LINE ^#^bT < 

<^n“ 77-7 1> ©fIfi&HFFFF b^oTv^i-r. 

Z 0<y7 — 7 1> 

T fc'it/p 7 - 7*3 vy FTs&O - 3 i."-rpg©, U oi.'b©'fei/:Ii 7 -f ^u-X F U y 7 *Ci •S 

<^n° 77-7 1> (i, ^<i''y h^^ttzhi^'i ^^7h') 

*/ib, 7^;wx F 'J &-f"=<X 

<fz^^\ 7 ^;l^X F'J y 7 *K- 3 V^T«, [ 2 ]PAINT >&#,^bT < 
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DSKF 


1/^ i: ^ (i7 ^ 7^*7 >> > F 7—) h t'^. 

D, E, F, G, H, L, M, Q, R, T, U iJit/W-(F7n vy F©lltTT(i, BM^bLX 
NTis'Jg^^tiTv^^fV^KD, LP A, C, P, S, Y isXXfZ^T^a 

V y Vcomi-Cii LP t t-B-A. 

tfz. A, C, S, Y*’J;r/Z-9-7*nvy F®JIStt, DRAW< , lii.m 

ODRAWC^)^©Ji^d^^5|^il*mi1-. SCREEN 7^ t 

C t) E' D ^ 7. 

#,^:LINE, [2] PAINT, y7;^7n7’7A 17 




SECT0RS=DSKF(2, 1) 

< F 5 -f 7*#^> $ tL/c r ^ X 7MT ^ '[ffg ^1# S T. 

<®tb> imtLxnxo tt^mmomm^^mtihcDT, '^(Dx^izm^btt. 

: r^xx©^!l§»(X7X7^{!i) 

1 : 1 t'7'yXS5©^rX7*5c 

2 : rV xx®-7-7i^ x(ffi)|!c-i 

3 : Ihy'yXStJOXxX^iSc lX7X7S9©hX'yXl& 

7n>y t”-r^ XX(7-Xi-f Xi![- 1 = l)(Dm-a '■ lh7 7X^190X7 
XXiSc 

SSr ^ XX(-9—7x^ X|!f- 1 > 1)©«^ : lXXXX^!90hX'yX*5: 

4 : )K'; i-AS!9©XXXXi![ 

5 : T 'f F" X b 'J h X 'y X #-^ 

6 : 1 XXXX^!90-feXX|!c 

7 : FATOgfl^f^-feXX## 

8 : FATOi^T-kXX#-^ 

9 : FAT om. 

10 : r ^ xxSttCAoTi.^S-feXXS'i- 


m m 


it 


3t ^IJ 


DSKF«FxTrs-^> [, <mMm) 

PRINT DSKF(O) 
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DSKI$ 


FAT BASIC :3-— 

SSCT</*$v\ 


0m : DSKI$, DSKO$ 


DSKI$ (DISK K) 

x—L S T. 

DSKI$« Kx-f7’#-§->, <^'y K§-§->, <-t2i?:$'#-§■» 

D$ = DSKI$(2, 1, 19, 1) 

as© 7 7 ^ (OPEN, CLOSE ^ t^) t (iSOC, r ^ X 7±OfgS t ;^c-fe 7 7 ^ 

T-7^Sc^ti5ttT. -fe7 7±K**^tlTi/i-ST-7 256 ^nM b §'>X f Affl/N'-y 7 r Kit 
mW(D 256yU b LTIgL S T. 

255 /nM b PIS©fit LT 256 /nM b©r-7 

(7)±X^W6 b ti±T^ ^ZT, i®^©7 77'A7 7-teX®^^tlli;j:5l-FIELD 

C j; -:3T'>Xr A^^'f'y 7 7 (7 7^ -'1^### 0)^7 ^ —JU 5 {T(^-S .1 t lil J: (5, ^ 

ZtA^T^ tt. VARPTR MS5:Ci !5, '>Xr Affl/N*'y 7 7 0B*^ti 

7 ^ y SIte=&P-<fc±T, PEEK Wise i y ^N*'y 7 7 ZttT^ 

tt. 

v^XrAffl^'f'y 7 7(±, 7 r-i t LX $> tiX<^^ 6 i) ox, 

OPEN iZj:^xm<'3Sii^0 t^A.. 

<'^7F#^>, <b7'y7#^>, <-fe7 7#^>t LTJi^T#Sfi©|gH(±, Jg^$n:^>r<F 
77 7*#-^>©t- f X7 F77 7*0S^CT oTM^C y ^7*^, BASIC (i, :i:ix©Il0ilH 
^'^X$>-of;^a'iZli "Bad track/sector" J^y — thtT. 
i¥L < tt BASIC tf-X'V^:xT;V'^#,^LT < 

#,^ : DSKF, DSKO$, FIELD, VARPTR 


m m 

3t ^IJ 



DSKC)$ (DISK "e- F) 

■X7 x7(c^LTil^$##3Xtfy.^^7tN^-7. 

DSKO$ <FxTl7S'^>, <'^'y FS"^), <b7'y7S'^>, <'b77S'^> 
DSKO$ 1, 0, 19, 1 
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m m 

W~m 

















EDIT 


'MMoyy T'i tttsyc, T-i 

-i ^(Df—y #0 ©i^xr 7 r (i, 3^0fw X 7 7 r ^ 

©PfKttfflv^S ;i tfiT# t^t^^^^DSKI$h DSK0$CJ;-SE^^{^®P«K©^, 

.1 

*§3AtfT-7®»iMtt, FIELD T7 r-f ;i^#-^K#0 Cl t C J: oT(0PEN a 

7 X r A ^ >v 7 r ^ 7 ^ - ;i^ F § fl 0 # a LSET, RSET icX D ^7^^ tt. 

VARPTRMiSit;: j; D, 7Xr 7 rOB*^tiTv:>S 7 ^'J 

T, POKECi V'-<'y7 r^iZr-y^mMtiZthT^tt. 

<^7F#-^>, <h777#-^>, <-fe7 7#-^>t LTjg^-r§-Sfil©|6Ha, 
7^7'#^>©T^X7 F7TX'©a^CaoTM^y) BASIC a, ;tl^©fi©jgH 

aa "Bad track/sector" — 

: DSKO$a, iEl¥®T'f 77 7 T'i 0 ^-^(DT, rV X 7 io aj /7 r 

aDSKFMicaj; pt< aBASICi—9-’-Xv^.r7;i/«' 

#^tT < 


#BS : DSKF, DSKI$, FIELD, VARPTR 


EDIT 


m m 




3t m 


$ntznmm±izm^^L, m O +-, +-4- i:-(z j: -s r □ ^7 

EDIT 
EDIT 30 
EDIT . 


EDIT -S :* — 

7-, ^«7°o77A|i*7-$'i^o47“ 




Toll 

UP 




ROLL 

DOWN 


d 7’7 t? tt. 


<fT#'#> C t° y 7 F(. ) b BASIC T 77 7°y 7F30dfT 7 7*^*:^L’CV:>-5JiS 

fT^Jg^LTcC: tC4D S-r. ^P^aa, LIST 3 vy 

m^izmiE $ 14 5 S 7. 


ii® : P7-7“7 3 yo§-C-fe-7'$ti47 rT/i^^n-F LT EDIT 3 vy FCi 0, 
^7j\, ^ML<t d t L^^'naa, "Illegal function call" ^7 —t4DS'^. 
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END 



■7°n;7*7 A©llt7^ll-7b,-r^T0 7 tt. 


as: yv AomWiO END nmmti ^ y r-< ^><D^'a-x 

ii^jtytit-^Ay, 


EOF 



[Wm 

t. 0IJ 


yy^JUoymj^- K^P^S7. 

E0F«7T7>'l/#-i-» 

IF EOF(l) THEN CLOSE 1 : END 


<7r^ ^nfz77^W:t>o 
T;Hi, 

m’&^ntzy 7^ )\'ii^ES-2Z2CmB{COM:)yhyfzm^'iZ\t, EOFMISjtt, ^^yy7t^ 
■^Th yfzt^ };;fil^* tvtt. 


#fi3 : •9'y7“/'l/7D7*7 A 28 


ERASE 


m m 


ERASE <ie5ij^i!t^> C, <B25lJ^i^^> -] 
ERASE C, D$ 


ERASE ^mit6 hm%DtzW'\'^Wy3^'i^i:^fittt^h, TtiOSB^U^I^CfJ !5 ^ 

X^yz'^^mi7^^) y^')7imi]\iDt-r. Etzi^yX, n—^WL^(DW'\W^^ DIM. xmz\z 
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ERROR 


: ERASE tt^t, "DuplicateDefini¬ 

tion" X y — ZV t.i'. 

#,^:DIM, OPTION BASE, A 5 


ERL/ERR 


m m 


it 


m 


t. 

1) ERL 

2) ERR 

IF ERL=100 THEN CLS : RESUME 
IF ERR = 7 THEN STOP 


X 7 - 7 bm± L fz ERL li x 7 - (D^± L /ctf ERR tt x 7 - 3 - F L 

ERR fc'J: t/ERL tt ON ERROR GOTO C J: oTffi^L*X 7 -j!!La/L'-^ 
Cfc’t:>T, ®g®X-7—Ma^tT'5 -f. 

ERROR, ON ERROR GOTO, f-y :^;w:/n ^-*7 A 22 



ERROR A% 


<Sff^fe> ctt, 0 *^^ 255 s-coi6H®iS:^j§®L^-r. 

-TTK BASIC Tx^-n-FtLTl^bfxTt^Sil^tt, x-?-^ 'y 

7“n^*7A®|ltT*lf±L^T. X7-3-F*^*^#§ttTV^:&V^«'^l±, 
7 °n ^*-7 A®^fT 5 rff ± L S T. 

ft-X7-|I^B#®:/ni?*7A^Tl|-^« ERL 1C, x^-n-F« ERR C-fe-y 
t L/c*5oT, ON ERROR GOTO 1C J: I.X7-ji!La^t—f-'y LT, ®g 

®X7—■! ^T. 

#BS:ERL/ERR, ON ERROR GOTO, fT^A. x 7 -/y-fe-S^ t ^'yX 

)VX‘u^yJ^22 




















EXP 


EXP 


m m 

SIK 

3t ^IJ 


e (g 11. 

EXP«^5t» 

E = EXP(1) 

PRINT EXP (A/2) 


(D, e min®® L Tift/. 




m m 

M .^ 


3t ^J 


7 > y A 7 T'T-(U/\''y 7 T (17-f-;u K ^fij^ T S r. 

FIELD (#) <yT'(Jiym^>, <y ^-JV b'm'y AS (, 

Kifg) AS •••) 

FIELD #1, 128 AS A$, 64 AS B$, 64 AS C$ 


FIELD ti, OPEN T'K^^tL/c? >/A7 r T ;Wn '7 7 r C^d’LT, Atb;(j$'=fT^ fzi^0y 
^-/VYO^m, Lfzt^-oX, FIELD ©HtTl-$ 

OPEN CL D 7 rT>'^^7 7/A^-FT4--7°>LTio*^;&< Tli^D L-it/. 

LTJi^LLt. 

^^''y 7 rCr —7 ^f'iAL;^-: H, f-'JAL/cr —7$#Sif 7^— 

<7 open CJ;oT 7 rT-'L/N'7 7 r ^;t-7°7Lf>: t #Cjg^L/cS-i-T 

1-. 

<7^-7^Flfi> «, Tjg^Lf>:7^-;PF^i[CfiJ0^T^X^fLr', F 

L L/. 1 ■70/s'-y7TCtt, FLT^<5.tt’, i/-7©7^-;i^ 

7 ^ —;w F^iSj^ftA/S (LSET RSET TtL^ )r —7©ft$ (i, 7 ^ —;i/ Fipg^ 

m^Xii^j:V t^A.. 

l^fIr-7 =£• 7-<FC-fe'y h 1-ISfir-7 ©MCfS LTMKI$, MKS$, 
MKD$©#M|gt>£'ffliiT/:^:ffl'fbLT*^^ LSET/RSET i©ti, ^tScS©*! 

F:R, 4/nM Fft, fgf|g||i!cffl©«-^a 8 /nM F:RC^tl 

2^nM F^0yFi§/^?lJ^7^-;LFC-fe'y F-rS:®-^-, 2 ^nM F^L© 
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FILES / LFILES 


7 ^ F bL, tfz '7 7 h 3 - K (KI n - F is J; t/ KO 3 - F 

<7^—;LFipI> t §CttC:OC: 

f ^ i 5 CUT < fzb^\f, 

LSET A$ = ”0*g” 

10/\M h:9‘07^ —;LF=&£'Sh L-tfOT, 7-<FilSKIi 10 Fi(±4'^ 
T}±;^D 

^:fo’, 1 OCD^N'-y 7 rK^bT, FIELD >&|ltTbT ^ S-a•^. 

)±M : #7 ^ F^IS^(Z)fBOf-tA^am®f-tA*$> a v^tt INPUT tj: < 

/•f^VL ^)LfT9t, FIELD 

#a^:GET, LSET/RSET, MKI$/MKS$/MKD$, OPEN, PUT, -y-y7“;L7'n 7*7A 
1, 2, 26, 27, 29 


FILES/LFILES-^k.-k, I 


m m 


35: m 


X'f7.:7ICAoTl'-l>7TTiF®^BU, ffl3S, $ ^liit)L tt. 

1) FILES C<F7TrS-i->] 

2) LFILES [<K7Ty#a->] 

DFILES 2 

2) LFILES 


<FyT7*#a>TjgS$ixAT^77±®7r^/LOigiif), 9®, * 

^ l)®:ir'aT'f 7 Ay-f Id, #5^ 2) A 0 > 7 (c tB A L S T. 7 r-'L® A^ $ «, 7-7 
X 7 L 1/^ ^ $iXtA(7777IC7>V^T«, BASIC ^.-nf- 77 ^ ^ 7 ;L#S^). 

< F 7 ^ 7'#^> ixA«^I3tt, F 7 ^ 7* 1 iL^7. 

7r^;F®aS(i, tBA$ix5 7 r-f;^®^tut, Ja 3I^ L®ra®E^D35:^C J: oTLTT 
®J:ac*$ttS7. 

: 777-'fe-7*$ti7*:AD7*7 A7 rT -'L. 

^ * tt, OPEN C j: o T# b n* BASIC ® r - 7 7 r ^ 

Uy 7 F(. ) : /NMAyLr-A$iLAAn7’7A7rT;l- 
7X7yx7(*): BSAVE§ii/>:99^7r^^L 

#0^ : BSAVE, SAVE 
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FIX 



FIX h INT <f[^> t # C, INT tt <l!!!:^> 

Wi^'igt(D^znL, FIX «/c^iC/^fSCJ*g|3^3■**It^®^D*ofc^i^II1-C tTI-. 

#,^ : INT 


FOR TO STEP~NEXT | 


m m 


m gij 


FOR t'h NEXT ST©Er^4’(CS)^-jl©^^^, m^)'^LXnfx L tt. 
FOR <Eit^>= TO mm> [STEP <mm 

s 

NEXT (, 

FOR J=0 TO 100 STEP 2 
FOR K=10 TO 0 STEP -1 
S 

NEXT K, J 


FOR~NEXT;F-:/ct3(FOR t NEXT ©Fb^) FOR 

^k,. 

cii, mmm.tm.m$.h(Dm(Dm^^^%^tir, 

FORji[^©^^^iitTbs-r, xu^y2>.(Dm. 
NEXT tx^^h, J 2 $tlTJ = 2t*D, Ht/, FOR 

J = 100 t^S^TFOR b NEXT©rBl©toS*^*^OIg$tlS-r. 

STEP <li^F> <m^> ttl 

FOR~NEXT NEXT t T. 


(1) <m^y *siE(Dfi-e, <a«gfi> <^[i> 
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FRE 


tzfzt, <mm 

1 o© F0R~NEXT®4’Ctt*b a lO0FOR~NEXT5-*< ^ h ft 

3i, ^'X zoym'^, ^tirtiff)Ilftin^j: 

Ot^A.. tfz, lo®F0R~NEXTti^:i:tc:ffe®F0R~NEXT®F^g|3K*ltti 

S-y:^. 

}±M : FOR b NEXT tt/Es-f 1 jd 1 C^fSL-CV:>:^(ttLtf * 0 i-^±^. 

tfz, F0R~NEXT;F-7°F*g-\^®*^^ G0T0^t^-Ci>A-y7“t'rAoT§AD, 3^ 

;f- 7“!^*^ 7> 7X”b A D T ?. J; 7 ^ 7°n 7"7 A (i, ^ 

<^j:0tt. 

; -9-77°;F7“n A 6 


FPOS 


M m 


mm 

I» ^ 


7 T < -'U't 5 T®t)se^ 4 ' 3 Si 4 f 4 g^f# t -r. 

FP0S«7T'1'>'1/S-§-» 

HEAD = FP0S(4) 


<7r-^;F##> Ci;r3Tf§^$tiA7 r-l’-'Fdb 

7^ ^ X7 7 r^^F®:#-n(±, b/c-)2 7 7 ©S-^-d^T# b 

c:©#-t«-x'y F 0, F777 0, -te 7 7 1 § 0 # t b ASbS-i-t ^ 11". 
jB^^ti:^c7r-f-'i-*^*7°y y7©±l-g-t^tt, 7“y 77©^7 F©f4a*5ff f, b©f( 

hi EPOS *^*31-7'll t H—T-7. 


: LOG, EPOS 



BASIC ©fljffi^tg*7 ^ y ^«© 7 ^©, #a©*^ffl^«©A§ $ t bT|#t 

T. 
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GET 


h ') ms) 

1 : bfc 

(7“nX*7Af+ X biAtl6fzi^(Dm^comO'U hff) 

2 : + X hSSC 

3 : IB^Or-iS'-feX'Xy hlS 

<®#g>*^*0 FREa, X h y yX'^^®Sa©:^c*® "t. D **" 

®T, it*5^ ott. 


GET I 


GET 1 

<7 -'i^#-i-> Tf§^^ti^z7 T'f 

GET tt, Jig $ tifz 7 r T ;i^*5r ^ x 7 7 r T - df- F 7 r T C J: o T ^ ©K 

y ^ T. 


m m 


m 5t 


3t giJ 


7 r T JFiJ’Wx- 7 ^ 7 T T -(U/N' 7 7 T S f. 

GET [#] <7TT>'US-i-> C. <t![Ji>] 

GET #3, 5 


(1) r'(X^yr'(Jb<7)i%^ 

7 7 7*^7 7 ^ )\'t^h(i:)r~7 ^y'yf J>~7 7'{ )\"^'y7 flg^tL/cr 

X7 7 ^Ki7 yT'A^- FTT-7°y$tlTVi^fl:J^a** y ^-y:^. 

<M> a 7 r T 7 3 - K## t L $ tl, fig $ Jl/S 7 3 - F *^7^* <;/ 7 r 

73-F#^©§/Ni«l, §yvii« 65000 T'T, <ISfI> 

GET, PUT Tfig$fTfc73 —F©f7:©7n-F755iE.^jAt titT. 

*15, GETS^fTo^mT, INPUT#, LINE INPUT#*U©7-7777^^*77-feX ^ 
fTo*:«-^Ktt, ^<77 rti:A'3Ti/:>ST-7*^^A7l*^TTt)fx^T©TffiEUT < 

( 2 ) +-*'-F 7 rT 5 KKYBD : )©it^ 

+ -g- F*^<5A7;U*35:g^^^"7 7 T. +-t:- F7 7^^HiA7;^- 

F-e;t - 77 $ FIT (.:>* Ufx* y 15i-^. 

<i!rfi> li, +-#-:-F*^^^n* 7 7 rt<:R^iAtf:5:gUNM F)iScf:^IR$fT^T. 0*^?>255 
S-C©fi-CfigU^T. §, i5j;t/0 35^^fig$tl*J:#(;:tt256^tg^ 
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GET® 


S 't. 

GET it^-<'yy h(DTt. Mi^S^/vfzr-y hi FIELD 

(7^-;LF^ife) T0mt6ZtTb^T^tt. 

#33 : FIELD, OPEN, PUT, f-7 7°;P7°n7’7 A 2, 27, 29 



WM±.(D X 7 y - 2 (Sxl, Syl) t (Sx2, Sy2) ht^ y'yV -i v 

2 o g tt, STEP 

<iB7iM*5[^>tt, 7*77^ 77T-7§lc*-atf7c*Kffl*1-?,*5cfiiS!©iB7iMi[CD^ffiiT 

T. 

7*7 7^'y 7^''”7-75-iB?IJ^ISCfn^3itfPtC, 

1 ■oo|B?!l^i![C^LTffii[®7'7 7 ^ 'y 7 ^n°7->^|&||^T-S .1 ST. 

GETO^^tTT^Mt;:, DIM Ti3?!J^*5:©7:§ $ y ^-fr^. HIS 

1 O^Se^ljG 1 0®/N°7-7L*^^^Ii^^V^:l-a-, i:^:©tt^5^T 
>1 ST. «I^/n° 7-7©:1-&«, Ttl^tl0^''°7-7C-7V:>Tti-i[L, 

H-^3-=&HISLST. 


I'^=((^©K7 hi&+7)¥8)*ISf©K'y h^* M+4 

fcfcL, fill^-F©t§ - M = 1 

F©L#- M=3 

16-feT 7—F© t §- M = 4 


Figf¥N + l 

N aiB?iJ^*5C©aiK L ^ y S T. 

sicsie^ij — 


N=2 
N=4 
N = 8 
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GOSUB 


M> (DIM#^) fc trig®LSI-. Z.<D%]:n^Ti^t>hfii>m'^(D\m, mTClB^OT^^O 
0 CD i; # (OPTION BASE #Sg) (D (DT'-f. —GETQTIS 1 i:):^(D@a?iJ^iC^ 

SE: L(DGET@ttPUT@t^Ig^Klf^C$>0, $SlST. S/>:, GET@^ 

tm LP(**|#RBj^)tt(Sx2, Sy2)(;#$ttST. 

#B8:DIM, OPTION BASE, PUT®, f->'7“;P:/n A 18 



GOSUB 550 


h«, 'fte*^ic>®3iL/->:7“n ;/7 AT, RETURN THoTV^S fccD^VH:>ST. 
GOSUB tt, *^i?>$&SS-9-7';w-^V=&ii¥t/fctiLST. 

LLLTiSf. 

1 0(D^L/;W—f->'(D4J*^^'ftfe<D^l-7';l^—L L feT§ ST. 

T y (Dt Pf t/ S T. L CD#!t{b«, / ^ U <D X T ^ (CLEAR #,^) ©#**^*fFTK 
Off-5 L t*5T§ ST. 

as : T xDl/- T y ^#*f b L T X c? 'y X *SJB 0 ^ * -5 t, "Out of memory"i 7 - 

*^^%4LST. 

#,^; CLEAR, RETURN, Ty X°;WX°n X*7 A 7, 30, 31, 33 


GOTO/GO TO 


[WM. 

S 5t 


^J 


fi^^nfcff^i^TyTL, TCA'ibrPcr^A^rllffLST. 

1) GOTO <ff#-^> 

2) GO TO <ffS-t> 

GOTO 500 

GOTO * EXIT 
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HELP ON / OFF / STOP 


<fT#^> (DiXh D c T a :: t -e § i -r, 

/±S: "GO" h "TO" ©ffiKX-?-X 1 fi§-AtiT^), i < |W| OEiI^T'T. 
GOTO 

#fl8 : ■t»->7“;F7°n^''7A 7, 28, 29, 30 


HELP O N/OFF/STOP | 


\Wm 


3t ^IJ 


help + - (C J; -5 |IJ tj JA<;z^(7)|^pJ, 


«jJb, ffih^Sy^SPL^■r. 


DHELP ON 

2) HELP OFF 

3) HELP STOP 
HELP OFF 


HELP 


- bfc t C J; 5fj D ^A^orp^, 


*lt, 


•itl) #ID3A<^?rfFnJ0t-r. HELP ^jf T .T t CgJ D L. ON HELP 

GOSUB 

#5^2) fijD^«iht ST. L^ ^HELP| T-^ff LT 0 S 

^^( )HELP| T-ag#©Klf^t^^jrD ST). 

•its) S!l03A^^ff±LST. L^ ^HELPI ^ —^jf LT fejf b ^'KTTV^I)/clST. 

HELP ONKSoTfJO^A 
E, Mt^ |HELP| T-^jf L/cb EtES -pT, ®a^P-T >K^iKL S 

T. 


: ON HELP GOSUB 
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HEX$ 


HEX$ 


M m. 


m m 




5: M 


HEX$«iSt^» 
A$=HEX$(X) 
PRINT HEX$(255) 


32767(17c65535) S5 t^/v. 


<^iO <D\U 
0~32767 
-32768~-l 
32768~65535 


0~7FFF 

8000~FFFF 

8000~FFFF 


: OCT$, VAL, ^ > 'f)\^ 7°d 9 A 24 


IF-THEr 

J~ELSE/IF-G0T0~E 

IS 

t 1 


m m 


11. 



1) IF <mmity then 

<3t> 

[ELSE 

<ln> 





<^T#'§'> 


2) IF <mm^> GOTO [else 


<3t> ) 


in m 


IF A$ = ”Y” THEN * START ELSE *EXIT 
IF SS THEN 200 


<ita5^> j; o T r o 7* 7 A ® HtT ^ $lj^ b i f, 

GOTO LSI-. <iia 

5^>*5a(0)^^a’ELSELm*?lltTbtT. fet, ELSE])ii^7)5^B&§tl.TV^S«^K(3:, 'A 

IF-"THEN (GOTO)—ELSE ELSE CgglLTSiJO IF 

-e#ST. fzfzL, #*(C-r§5®ttltT(255 /NM F)(-*(75l6HCl®?>tL^T. 
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INP 


1^*^, 0 (Dt^hz ELSE 
#fl8 : ■9->7°;l^7°nj/7A 8 


INKEY$ 


INKEY$Ofi«^;ux h i; t^D tt. 

+ -jK- F^'^y 7 7iZtTizAtl^^(D^^i^^A^r\^^6m'aiZH, y\^y 7 rO^fe^O 1 3t 

INKEY$-C«, + tfz, INKEY$ti, INPUTY> 

INPUTS^ Y L +-A*f#^ t It ^. 


m m 


jt 


3t fflj 


J¥ ? nx I'-S =p-( 7 ) 3 t^^rt# s r. 

INKEY$ 

IF INKEY$ = ”” THEN ♦WAIT 



CTRL|+|C|, STOP+-ttINKEY$X5^DttiT;Ii:^iX§^^t^. 


: •9-7X;P7°n7'7 A 29 



<df-I'7 !)^i?> 8 h®r-7 D, 

SX. (df-F##) caO~32767(&HOOOO~&H7FFF)Ofl^Ji^LSX. 
<df-F#-^> F7a:7v^i7;i^^#MLT </i^V\ 

#M : OUT 
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INPUT 


INPUT 


m ml mmznxitt. 

} <^m.> [, •••] 


it 


1C. m 


INPUT [<yp>yi'5t> 

INPUT A 
INPUT ’’fim” ; B$ 

INPUT t, 7°ai7'7 AU + —d-t—D l^t. 

<7°D y7°bX>cU, 'y-fe —tT. 

<7°D y7°t':S:>K-bi3ny(: Kli, ^(?)t 1 Iff© 

<7°ay7°h5:> 

<^8Sc>Ktt, ^-d-C-F*^^A*LAr-i5'*^T-tA$;<x^t. <^fr> ^3 w(,)^gljOo 

A^Jl"S r-:^'fe 3 y-TTE-^oT <^it> ©|5[fcUA;t;U^i:U 

tUi'=&D t-<^:^. Sfc, <^m tr-i5'©Mttt-i!tUTV^^fUtv(f^'9 t■y:^. 

A;t;$tiA t ;i©:^a-co^x-'i^x F'j yx'©A:tj*"^T# -i©«B'fe 

<^Wi> *^"^Si5c©^'a, i2'5i(©3 y7fiUI±A:t/b’^Utia’* D ^-e•^. 

t- % f-t A T a 3 y -7 ^ 35:^?y © fu ^ c Eft © $> ^ ^ fi ^ A:^j T ^ I- (i, 

X - T - '> 3 y (”) tU'^n ^ H tf <e:'g *5 $> 5 ^t-.b©lf^i?':/;w^;t-T-s/ 3 y 

tt, UTA:U$n^^t^. c:tiT:i^©«-&i-tt, 3i^?y^i5'*7*;wx ^-t-'> 3 y-ria 

S-&A. 


1^, STOP ^-S)SV:>li CTRL 


+ 


^+-^A:tJUtT. 7 °o7*7A©^ 


tT'43(cA*^4'»TT5 i;, STOP ON ©y^^ti^v:.|®i5, 7“n7*7^©^tTfe tpWT$3v 
y F^—Fliife i: I? b®t^, 

^l*5f-tA$tv^-a:^). 

0yFig® A;^=&tT-5«^K(i, |CTRL| + |XFE^ ^ A;>3 UT B^jgA;^^- FCbST 
(BASIC 3. - -r-X •T’ ^ 7 , 


: <^IS> i:ftA7-SI(©M*Sito-Ci/^A:^-^t^« "?Redo from start" biBS^^t 
TSr/AXlIf^ 

^ fz, #1 'O UTt^S Xd 7*7 AcpT, INPUT ©Mt'PCSO !5 

S!lOIA.^Ma-'^-Ay*^?.«'iiUA t INPUT ©iX©^^C^tT*"" 

^-3TUSt^t7®7, aE*^^£'gT7. 

INPUT WAIT, KINPUT, LINE INPUT, STOP ON/OFF/STOP, 7 7X;u 

Xn/yAl, 7, 8, 9, 22, 28, 29, 39 
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INPUTS 


INPUT# 


INPUT #2, NAME$ 

<7 rT OPENKioT, ^(Oy r '{ 

“f. 

<^iSCiS> ©ati, 7 

C f^ A ti •!> fl {Wl^ © M r/) ^ (f, 
^e, 3 y 'y'7'y 7-7(CHR$(13))-CE-KI?>:fiTl:>^l:Jtllf*y t 

y 7-7-cEW^tLTi.^^itti.a'^y t-&^. 

#B8 : OPEN, ■y-77°;P7’n7'7 A 28 






y—^yiyy)VyT^ EiifIcftAU Sf. 

INPUT #<7 7^yy#-t>, [, "0 

INPUT #1, A, B 


INPUT$ 


m m 

E£ 

3t M 


IIS ? 7 T -r yi' ct u ©3t^5ij s r. 

INPUT$«3t^iC> [, [#] <7T^yi/S-§->}) 

WORD$ = INPUT$(6, #2) 


<7 OPEN KioT^©7 7T;^^4--7’7tA t 

<77T;i-#^> +-^C-KA:‘^©Ayy^Riy^3A^i1-*n 

INPUT E y A^ ^ ^ ^ A/, 

<^^150 


INPUT$ajg^^aA <:5;m> ©5:¥*5Ay7^tL?.®^^t>igUST*5, TTn::^Ay77 


tA, INPUT$a, I STOP 1 ^-, |CTRL| +|C|^|^< ■r-^T©jt^^^©^^aAlA.»^T© 
T, INPUTS LINE INPUT-CttAAlTS :i i: ©T# 7 y 7 7y 7-7(CHR$(13)) 

if feAyjT-5 i 


#,^: INPUT, LINE INPUT, ^yy^/uy^a y-y A 22, 29 
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INPUT WAIT 


INPUT WAIT 




n xtl INPUT WAIT <#^.^r^>, [<rp>y h3t> 


3t M 


INPUT WAIT 100,’’Your name” ; NA$ 
INPUT WAIT 50, B$ 


INPUT INPUT hlWHSli^lgLSI-. 

)±M'- ;i©:S:omii:T;pf-XT-> h t $iJKB#WF*3CA^ld^*tT 

htitzt # xmmbti^j:t^-Dfzt # 

a*uT < Yi$v\ 


#33 : INPUT 


INSTR 

3t^5iJo4^A' ^mir, ^ co^t^<7)fiS 11. 

INSTR([<'f4S>,] <3t^5IJl>. <3t?:5'J2» 

J = INSTR (A$, ”J”) 

PRINT INSTR (’’ONETWOTHREE”, ’’TWO") 

<3SC^^y 1> ©4’*^'^ <:i;^?0 2> 

^ tienii h u Ti# f) ti ^ 1-. 

<f4g> icn, <4:^701> 4-rau$&*^f4g4’4:^iS(Sl!!cfit)Tjg^us-r. <f4M> * 5 ^ 

<4:^?y2> !;:””(;?;ux h 'J >4')fc, INSTR©gli <|4g> tlHUC^ 1 Sf. 
iiS:INSTRtt, 2^'f-T KINSTR^r^fflUT 


#_^ 

^~W 
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KACNVS 



m m 

3t 


‘J -r. 

INT«i&xt» 

PRINT INT(1.123) 

A = INT(RND * 255) 


INT h FIXO)tV^t±, FIX 

INTtt {IISes':) Z t-ct. 


: FIX, CINT 


JIS$ (DISK^-P) M St 


<:*^?y> (DMW(D2y<'( 

<5:^?!J> (DM&iZ 2 yU B^MIC^OmiZ KI 3- K 

C^^flJXDMWO 2 yU hAUyU h2 2 ooX^© 16 jtUSt 2 tfTO+ 

y ^ ^ a- Fi^MMLrm^tit-r. 

<X^?'J> A^2y<'( h &rf(D^'a<ii, "Illegal function call" ^7 — 

#0^ : KNJ$, -9-7 7°;^-Ad Ad A 36 


m m 


jt 


0IJ 


2/H h^0:$:^:S:^(7);1|:?:zi-K^#S-r. 
JIS$«5:^5IJ» 

C$=JIS$(KMID$(”5i^”, 2, D) 


KACNV$^^k,-., 


m St 


y~ii1 

S3 

SZH 


2/<'f 1 hm<7)^St*A3t^lC^i5L S-f. 

KACNV$«3t?:5y» 

A$ = KACNV$(B$) 

PRINT KACNV$(”A'f9A B C”) 
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KEXT$ 


2^nM Yn^±niC.'^J'W(D KI/KO 3-Kttf 
"Illegal function call" X7 — 

>3E®; <lcTny ^(D2yu ^^^^:^c^(iiEL<^il$ni^^. 

#BS : AKCNV$, +fy7“;U7°D^''7A 35 


KEXT$ 


(DISK^- K) 


m m 


m 5t 

3t ^y 


3t:^5lj<7)43A'ii ly\'^ 2/W hm0:$:iS3t^ 

KEXT$«5j:^ 5IJ>, <Mtg» 

A$ = KEXT$(B$, 0) 

D$ = CHR$(27)+”K” + KEXT$(”g|^ SAMPLE”, 1)+CHR$(27)+”H” 




0 : l'^'! 

1 : Y^B^/f-m-X^fz^i^^^^t. tztzL, Yil/YiOz2-Yt,m^^-^nt£ 

<^ig>*n0±i^, KI/KO mhnfz2^^'i Y^B^mx 

^®M^t;:Ki/Ko 

fi^ tfc^ 'i x(DX^nt^t£\--^m'^, KEXT$®fitt )V7. Y y 'yxm(DX'^n) t ^ y t 


: -y-y/;U'/o/7A 37 


KEY I 

+-.-K- Fc7)±gp(cS)^7 T a >+-{c:St^5iJ^:t« L s r. 

KEY <=^r-#-t>, <3t^?lj> 

KEY l,"Yes” + CHR$(13) 

KEY 3, CHR$(&H22)+”BASIC”+CHR$(&H22) 


wm 

¥~lt 

X gij 
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KEY ON/OFF/STOP 


?> t, Jy.^, ^y 7'yi^ 3>^—^^tfzXfiiz, £:ti^tnz^^i.tz:$c 
^7 7 >y '> 3 y^ — liZlii,^X 15 /nM h £Zf zi > h 

tzy 7yyy3>^-(Df^^it, ^tzhz^s.LUi'ij^'j^'y vt^tv^ho 
}iM: 7r >'i5''>3 2 /nm d ta-r# ^-^±^. 

#BS:CHR$, KEY LIST 



7 77773 > + i S T*L 

KEY LIST 

#BS : CONSOLE, KEY 


KEY ON/OFF/STOP | 


1 m 

1 

7 7777 37^-iZ 


m 

xt 

1) KEY [«+-#■§■»] 

ON 



2) KEYC «+-#-§■»] 

OFF 



3)KEY[«=\r-#-§-»] 

STOP 

3t 

“Wl 

KEY ON 




KEY (3) ON 



10 tTC07 7777 3 « + -#•§•»=& 

'y 3 fe-^tf) -r'<X(D7 77 7 7 37^~^^'^\^fz^}z\Zt£y) tt. 

Sitl) WiV&^^Wr'^L£.X.£A^^M^tltz7 777 7 3 >" + —t Cffl ?! 
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KILL 


±L, ON KEY GOSUB 

*5t2) ry^iys'y^-^WLxh^mji'-f-y'^ 

®53‘iK«|a<l i) ^-t^:^(7 r >^-©aS®Klf^t-^f D tl"). 

»^3) 7'y^ 

Li-^L, ^(D%. KEY(n) 

ON t, iff-7 r >7 7 a y+ t:^>:-i t 

^D, ®a;L-^yK:S-iKL^t-. 

a® : Y’n7*7A©|l7B#C«KEY OFF ^HfTtTfc’V^T <^ V\ $ 7 

T 77 y 3 y ■?■. 

#08 : ON KEY GOSUB, +Ly7’;L7°D7’7A30 




<7 7 7 y 7°7> Tlg^b/c7 r ^ ;L=&r ^ 7 7d^?)|!j^U 11". 

iyi^1-'5.7r^^Hi7n-7t>cffii;:*oTv^^l:ttLtf^iy S•^^^. t/c, lo^KILL-Cttl 
•707 -'Lbi^Sy^T# t-a:^. KILL ^ 7 7 7 r ^ I". 

iiE: ^-7ym^,®7r^/L^ffl^Lj:7 t-ri-t "File already open" x7-t0 ^ 

7. 


m m 


jt 


3t 0IJ 


x < 7 7±® 7 7-fL S-r. 
KILL <7 7d'>'LT'f77'J7"7> 
KILL ”2 : DATAl” 


KINPUT 


m m 

3t <?y 


KINPUT 
KINPUT A$ 


<^|gr^> ctt, 

KINPUTt, gaWl-S^^^SAy^^-FCAO, ^-tK-F*>?. 0Ay3ff t,© 
tT. H2Fi§0Ay3:^acMLTtt, BASICx—tF-7-7X::t.r;i-§#^LT < *' 
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KLEN 


: KINPUT a, ftl® INPUT hD, 1 -oO^-Cii 1 ^©^iScLA^JgH'e# 

KINPUT TO^ D t-rOT, LOCATE 
^©ffiiSrC 1 


KINSTR (DISK K) 





# xt 

3t ^IJ 


2/^ h^0:$^^3t^^#t;35[^?y©4^*''b^iS3t^5iJ^aLT, ^©3t^©fi 

s^ffsr. 

KINSTR(«fiS>J <3t^5IJl>, <SC?:5IJ2» 

PRINT KINSTR (3, A$, ”#-§-”) 

NUM = KINSTRSTA$) 


<X^?|J1> ©4'*^‘?> <5:^^y2> Bo*^fLa'^©f4B*L 

<f4B> c«, <X^?0l> 4'T8lL^4t)|>f4B^, 4;^lfc(Mi)Tffi^LSf. i©t^, 
2.S'T l^i^tLT, tfz, KI/KO n - F t T. <f4«> 

h y KINSTR©fia<f4B>t[lUC^D ST. 


KLEN (DISK^:-F) M St 


LN = KLEN CM'M STATION”) 

mm> Kffi^T6fi(S*Stii)c i D, #S©;5''i'7°©4;^©^ft-|5:=&f#ST. 

0 : ^#©T:^St(2/'fT iT^fcUT, KI/KO 3-FL 

L LTiStT^) 

1 : h^^m^i-X^OX^WL 

2 : 2^nM L?^BT:|§3i:^©4;^it(KI/KO 3-F«^S^vU 

3 : 2/^M 

4 : 2/-fT h 

5 : KI/K0 3-F©iSt 


m m 


5rt 


X m 


2/H Fma:$:^3t^^#t;3t^5iJ't'©, T©3t^©^tti[^ffST. 

KLEN«3t:?:5IJ> (. <^tg») 

PRINT KLEN(A$, 1) 
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KMID$ 


tiio, ±n(DX^^2^^'i Y^±nx^h^^^'^\ ^n(Dh(0'^ 

2^^M 

#,^ : ^>X)i'X-a^-y 2>. 38 


KMID$®' 5 '<‘^-h 


M m. 


m m 


m 5t 

X fflJ 


2yH h^0:$:SS:^^at;3t^5lJc7)4'*''b, ttS(7)*$<7)3t?:5lJ^ife#tti U S 

f. 

KMID$«3t^?IJ>, <^1> [, <5t2>]) 

K$ = KMID$(A$, 4, 3) 

PRINT KMID$(’’JAPAN 0:$: USA iiill”, 1, 5) 


iX'^n'>^<D, <.^2'>X^(D^^<DX'^n^%'^t. Z.Z.-r^, 

<5tl>, <A2'>\z.^'&t^X^WiOy^^^i, I'U 1^'M h^ix^t 

LX, 2^Uh^B:$-mXTisXXfKl/KOa~Lfj:6l,i2^^'ih^lX^tLX, ^tl^tl 
mxtt. 

<35;^^!J> 035:^f(*5 < 5 ^ 1> J: D /Jn$ KMID$®fitt J? ;l-X h V yX(^0X^n) t 

^j:Ott. 

<5^2> ^'-mLizm-^^, iX'^ny 4^® <s^l> m^(DX'^i)^h:^<DX^Wii^ <5^2> 3:0 

<X'^¥\y ^co <j^i> i>;&®-r^T®:5:^?0*s^ShLT 

^ S X. 


#,^ ; -Ij-y7°;l/7°ni:7*7 A 35, 36 


KNJ$ (DISK^-K) M fl 


<X^?lJ> 2^U h^B^^mX^lX^i^^^Ltt. L(Dt 

g, t-&^, i o-r^bji/s^tiT 

"Illegal function call" zay — hz^OI^X. 


m m 




X 0y 


;1i:|;=l- \~'X^n 4 ffr^ 2 /H h 1 X^lZ^m Ltt. 

KNJ$«3t^5IJ» 

PRINT KNJ$ (”1 B4B”) + KN J$ (”3441 ”) + KNJ$ (” 1B48”) 
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KPLOAD 


(1) 4 

(2) ftlu® 4 16jtl^(0~F)O|gHl^®X^TS.S t 

(3) n-FT^SClt 

<5;^?ij> MWco 4^(D^-ibm^^^ritt. 

^i5, m^ivtz2y<^ hCtt, KI/KO 3-F 

D i-lt^. 

#M:JIS$, ^fyy7U7°n^7A34, 36 


KPLOAD (DISK^-F) I 


3. — t ->^iy:^rA iz^m-T -S ^^Tt. 

- F>cttai^^s 3 - F ^m^Lt-r. &h762i~&h767e 

Jo j: t/&H7721~&H777E ^ TT'^. E ^ ti, "Illegal function cair'J^^ — 

S1-. 

mwirnmn^y im.wmmn^y 

^ dim d, i '<k^ is ltmetjov^ 

Xifz^^K 

ia?!loll 3 18 g*sTic:, i:^:© J; 3 - >© F '> f -f ^ 

IfltT < 




it 


iz^m Ltt. 

KPLOAD <m^=i-\''y, <giSci!!ie5ij^> 
KPLOAD &H762A, CHRPTN% 


E?IJOTIS 1 S*=&H 10 (ttS<i) 
E 5 lJroil 2 5 « = &H 10 («««) 

g55lJ<0|l3^5g=&H81 12 
i55IJ<0^4e*=&H4222 


s 


i55IJ<OlBl8g*=&HXXYY 

I --leK-yh 

I-&(73 8 K -y h 

-6cn 8 K -y h 




#B3 : •9-y7°;P7°nj2"7 A 34 


91 


































KTYPE 


KTYPE 




1^ m 

1 m 


2/w 

KTYPE «:St^5IJ>, <5t» 
B=KTYPE(A$, 5) 

PRINT KTYPE(”B*S”, 2) 


4^® <S^> h 

<5^> ctt, ^'f <x^?y> vm-vm^Lt 

%htii>m.h'^'i-:^t(Dm\Br-ik(Dti5'0'Ct. 


0 : 

1 : 2/M 

2 : 2^nM 

3 : KI 3 - K 

4 : KO 3 - K 


<5'i> (DUi^O ttzhi iSC^ny 0 b u 

y ^ (?^®X^?y)©^"nli, "Illegal function call" 3^7 — t^f!9 it". 


LEFT$ «I 


PRINT LEFT$("standing”, 5) 

ix-^m (Dmumw)*^^ <^> Tm'^\.fz^WL(DX^n^m^^\.tt. <^> ©wii o 

^ 255 ®l6H(;:*l4fxa’^y) ^-lf:^. 

<5^> ®{il*5(f, LEFT$Offili;i^X b y >X{‘S.(DX'^n) tt£y)tt. i-^y ti <X 
^ny (dx^^ LEFTS®iiii iX^ny 11 ^/c < i^uc:^ y ^-t. 


m m 


m it 


X 1?|J 


X'^n<r):^mt' ibiiS®* $ oyXt¥\ # l±i L S f. 

LEFTS «3t^5IJ>, <^» 

B$ = LEFT$(A$, 4) 
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LET 


#,^:MID$, RIGHT$, •9->’7“;L7°n^*7 A 25 



L = LEN(”TEST”) 


FTO 31 tTO, j1#3 > h D— ;L3— F 
LENTtt, i'X'^ny fpct^^^^^^y(lyu \'^)(D^^i}^^trix^^xh, 

•hH'®^''M hW(im^‘^titt. 

#BS:KLEN, f->'7°;U7°n^7A 25 



l=(H-l) * J 

A$ = STRING$(20, ’’*”) 


LET 

<^> miU, /cffL, t 
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LINE 


LINE 


m m 


m gij 


[, </■?U'V 1>] 


* xt 

LINE ( 

(Wxl, Wyl) 

]- 

(Wx2, Wy2) 



STEP(xl, yl) 


STEP(x2, y2) 


] 


LINEdOO, 100)-(135, 100), 7., &HF99F 
LINE-STEP(30, 30), 7, BF, 7 


C. 

B 

) [, 

<7^ >'X7T-'F> 


BF 


</'Cb 'y FS'^ 2> 




<7'f-IFX. F U 


V-;uh^mm^(D2mWxl, Wyl)t(Wx2, Wy2) tt. 

(Wxl, LP(ft||#figjS)b S1-. STEP 

UTm^t^ b hT^ t.t. 

</N°i/<y COLOR T' 

i7'7 7 -i 'y 7iiiffl©7 tT 7 7 F * 7—T. 

B(i Box ©EftT, 

(Wxl, Wyl)i:(Wx2, Wy2)© 2 ST. BF Box Fill© 

EftT, 0.1:0 ST. 

<7 ^ 7X 7 'f 7 -7T3b 0, &H0 ^&HFFFF (i (16 

ji^)©fI^tSbL*^T§ST. b©lit7'f |lI©tS5DTT. <7^ 

777^';P> it^^§|^ST. BF©Jg^B#Cl±l=§STi S-y:^. 

</N°i/>y F#'§-2>tt, 0^ff^©F*ggP^i&!3o.^-T^©fe^, <7^;kX F >; 77*>tt, s&ido 
.^*TPf©«1i>&JgSLST. <^N°P'7 l'#^2>SJStF<7^;i^X F'J yT>tt, BFfi®©t# 
/idW^TT. BF|g^*^**0, F#-t>, <7 ^ ;i^X F'J VT') ©v>TSLfe#BS$^xfc 

F#^COViTtt (2) COLORS, <7-f ;PX F ■; 7T> COV^^Tli [2) PAINTS 

LINE^IItTL*^^, LPa(Wx2, Wy2)C#fttST. 


Z.(Dm\t^m^‘mi\.fzi^(D-C-r. <T^ yx7^;^>©16)i|!(©l(^2)ii!cl6 f-y ft* 
L* ^) © t ii®±© 16 F -y F LTS T. "1" © b* -y F l^T^JST -S F 'y F § ti, 
"0" © C-y F C^tET -2. F 'y F $ ti S -b: A. 0 ©{?!lTfS, yK¥ffi® © 100 ^ 135 S T 

©36 F'y F©rBlC,l^S^II©7't 7X 7 ^ !dg§ tiTi^ ST. 16 F-y FL(±?|i^ 
7-f yX7^;b*^*Siffi±© 16 F'y F rt Ci^Oig^tiS 0 hi;:* II ST. 
C:©S-5lc:7-< 7X7^;P^tg^T^h, 16 F'y F^{!iTi^©)f^^.^g^A()2. 0 h*^*T# ST 
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LINE INPUT 




7-1 >X^''f;i/(&HF99F) 

F 9 9 F 


^-- -s/-^-s/----^ 

1 

1 

1 

1 

1 

0 

0 

1 

1 

0 

0 

1 

1 

1 

1 

1 

0 


















^- 



IStT'y h 



LINE(100,100)-(135,100),7,. &HF99F 

#08: C2] COLOR, [2] PAINT, A 15, 16, 17, 18, 20 


LINE INPUT 


mm 


w it 


3t m 


=1r-7fC-K*'P)A^]$tl-5>'r-:J'(255/\'-i' EI3I53 i:4'< —SLT 

3t^^|g[(C'f-^ALS-r. 

LINE INPUT [<7°P>7"|'S:> : ] 

LINE INPUT ’’NAME” ; NA$ 

LINE INPUT B$ 

LINE INPUT Tli, A;U^^t7if ^TOr-7*5n yyfj:t^(D^W0sE^ 

hixfzT-i^(D 1 o 1 ^iSicftA^^xSt). 

<7'D>7’h5:> Cli, A^lSrSU-SSuC^^T-S 7'y-t —'7'S-Ji^L ST. 
Ai^J^cpSlTUAv^ 


Fo, [stop X — CTRL + C L S T. 7°n ^y A(D% 


tT4’CA*«-4’»TTS t, STOP ON®«®,K^^^^!5SD, A0||fTfeT»r^^, nv 

7 F^— KI.: Jf D ST. *101 i, TtiSTKA;^ t/sf((ST^Til5^t (3 STCT^^liC 
K (ifji lift A $ ti S T A). 


#,^; INPUT, LINE INPUT#, STOP ON/OFF/STOP 
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LINE INPUT 



gg I ‘J, 1 tj( 255 >'N''f hlUF' 9 )#^ 4 ( 7 )x-:J'^— 

^^ L 11 . 


<7 T'f OPENKioT, ^©7r^-'P§^-7°y 

t". 

LINE INPUT#(i, 74 ^ 7 V 7 V 4'~ > (CR) =i ~ F + 

^^y7^_p(LF)3-FTE^e>ttTVi-S ltT^|4®T-7^ic<^a^St'. .l;lT, CR 

3 - F« CHR$(13), LF 3 - F(i CHR$(10) ICtSi L t-t. 

LINE INPUT#Ii, r-^7 74 Ji^(D4-ti-eti(DffA^7^—7-^ay7izJ:-^X^^<7>A^ 
®Wc;:&S!l5'tiTV^5 h T7 + --fe —7'Lys7°a7'7 A^-fifeCOT^n^*^ AiDr-^ t L 

T t § =fc ifiClfC 

#BS : INPUT #, OPEN 


* xt 


LINE INPUT # <7tt'>'LS-§->. <:S;^M^iSc=s> 
LINE INPUT #1, A$ 


LINE INPUT WAIT 


I 


m m 


m xt 




LINE input wait (;<7"p h:St> 






LINE INPUT WAIT 50,”No. = ”, NO$ 


LINE INPUT WAIT B# fij K o § O LINE INPUT Tt. L * 3 T, LINE 

INPUT t INPUT i¥L < 


#,^ ; LINE INPUT, INPUT WAIT 
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LOAD 


LIST/LLIST 


m m 


3t m 


CO:^g|5, t tz «> -51' (iEP 6(1 L S f, 

1) LIST [— 

2) LLIST [<i&*^T#-i->] [- 

LIST . 

LLIST 100-200 


LIST yviifyA(Dp^m^, *^i)(±iiiffic, 

V X h (Dmi^M'AO b is Tt. 








■^®l6H®-t^T0X°nX'7 AfT=& V X ht6. 

trt^r^u X h-rs. 

ht6. 

^OfT##0X°nX'“7 AfT/f (TS'y X hf •S. 
XDX'7AfT$'-r<Ty X ht?>. 


tTS-^Cey ;e- F(. t, basic T X:^'X’y 

L S -r (;^>: t ^, m^i^MlE^nfzW. 


y X F O ttiyia |ST0P| iF- S * a |CTRL| +rcl0A;(jT^ o^t. 

i: nw F t'D SI". 


LOAD 


m m 

^ it 


(CP- Kcs-r. 

LOAD <7T'r>'UX'fX^'jr:J'> C, R] 
LOAD ”2 ; DEMO", R 
LOAD "COM : N82NN” 


<X r T >'i^r-f X X y X’X> (c(S, X-T: y (c n—F"f ?> 7“n X’X A 7 r T-'U(t X X, RS- 
232C[l]|i, +-!K-F, LOAD b, f^T0||V^TVi5 

XrT^KiRflU^^i, 

R tysy 3 b, 7 rT ST, 7°nX"7 A^d—F^, 

§f$&LS A. 
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LOAD? 


as : RS-232C An-7°a A® n-bT fe, gfl 

WC LOAD 3 W F ttllT L t -& A. |ST0P| 7 - T^1S.M&3 7V- ^ (4”^) t it ^ 


LOAD? 


^ii 

m ^IJ 


*-tr'v Ft-iEU < ■yp^^A^^-fe— 
LOAD? <7T7>'FX'f7.^ijr:J’> 
LOAD ? ”CAS2 : TEST” 


<7 r T 'f 7 7 'J 77>Ci D JhS$ ti/c*-fe 7 F±®7n 7*7 A®F4§t, 7T- 'J 41 ® 
7'n7*7A®F4^*^*I^— 6(D^TmP^<Du~h’mi'Piinhtit 

"Bad"L^^^4LS7. .I®37yF(i, SAVE®E^f<: 
IE L < -t - 7* $ tL* .11 S S S f. 


as : LOAD? tt, *-fe 7 F 7 r 4 ^^C^d'tT®^WSilT'-f. ftfe®SB±®7 r 4 

LOAD i:to*<RUIilft«'L, 7 ^ V 4”®7 °d 7*7 A*s^4?tLS4-® 
raSLT < fi^^K 


LOG " * I 


<7r4^^#-l-> T'Ji^$tiys7 r 4 >'L'®#^Cj: nT, f#?)ni>fI®Si5l^*"*^^c D il". 

■7 Ax-f 777 7 4 

# (GET/PUT) %tTo /c V/ 7 - F ® 1^ 3 - F ?> 4 l 14-. 

ix—7'>''>7-^F'T T -^7 7 t4 

4-7°y LT*^bJI4STf^Sc^#§ L/>:^3- FI^*4#btLt4-. 

4^-4^- F7r4-'F®li'a 

ffl D i istt, + —4^— F7''*7 7 r 4'C/-: t 7TVi2>:7;^|![*4#?)4iS4". 






s: f y 


7 T 4 -'F4’T®iiia6^4'iiitf4a?r^f s r. 

L0C«7r4>'U#-§-» 

LAST=L0C(2) 
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LOF 


RS-232C [11^7 T-f 

0 Sift (INPUT #, INPUT$^^ U) mVS,^izj:6 RS-232C 

(D^mm < t, 'y7r ;i 6<DiZ LOG ^ 


LOCATE I 


LOCATE ,, 0 

Xiiyh¥&m^0L, t^^j:^ti^t. Y(iSEffig$-^U, 

( 0 , 0) ti-6^^yyymmizJ:0f^mLtt. 

<:*-y;PXT 'y¥> ytT, 0 =&JIST-5 

#-^ : •9-yy’-'F7°Dy"7 A 10, 33 


^ m 




3t fiJ 


LOCATE [<X>] [, <Y>] [, <*-V;U7'f'y^>] 
LOCATE 10, 10 



<7rT;F#^> -Cffl^$ti/c7rT;F®aSCJ:oT, m6ti6m(DMMi>^M^j: V tt. 


XT7t?7TTlK7)Ii^ 

7rT^F®Ai$*^-fe7 7i([Tf#^^it-^. ZoMii, 7 r T7 7"A 7 r T 
(f, ^07rT-'F®ftAi^3 — 
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LOG 


RS-232C 11]^7 T -f 

#BS ; -(^y7°;prn;/7 A 29 



LA = LOG(X * Y) 


t-r. 

#,^: EXP 


m ^ 


y^(0^ m^O^y FliSdiftiLS, 1 ". 

#BS: WIDTH LPRINT 


m m 


xt 


:5: 0IJ 


^is<7)7°'j 'y^cn'^'V Klia^ff ST. 
LPOS«5Et» 

HEAD = LPOS(0) 


LPOS 



LPRINT CHR$(&H41) ; CHR$(&H42) ; CHR$(&H43) 
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LSET / RSET 


LPRINT tt,T-i5'§7°y yi^iZliitlt6!^imdtzlifT,^(DmmiPRlNT tmUTt. 
: PRINT 



LPRINT USING ”¥¥#.###” ;C 


LPRINT USINGS, ^OKifTliPRINT 

USING tflUTf. 

#B8 : PRINT USING 


LSET/RSET 


(DISK^- K) 


m m 

# it 


X fflj 


7 > y A 7 T T Gy 7 T C7) 7-f - ;u K H X - rJ'A L S f. 

1) LSET <3t^^ic> = <3t^5y> 

2) RSET <x^^m>=<x^^\\> 

LSET A$ = ”^ffi” 

RSET B$ = MKS$(I) 


FIELD r T 7 r±CfJ D ^ - ;p FiEiSc^ 

mmLtx. 

tizxf), 7 ^ - ;p ^~juV Kr-7 ^ 

f-t AT t. <X‘^n> (DX^mii FIELD TWiKt'^X hilfzy 'i-iv F^lfc®* 

LSET T'ti&iSfe, RSETTtt*ISfcT7^-;WF$'«*LtT. <T: 
^ny *^^7^-;wF i LSET, RSET L T. 
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MAP 


t, T~f'^lEL<iXXt6 S-&^. 

tfz, t•^^^0■C, mU.^r-'^\t 

MKI$, MKS$,MKD$®v^1-*^a*^;:J; 0X?:Sir-i5'C^^bTiD7!)^4ttti.(i^'9 

#,^: FIELD, GET, MKI$/MKS$/MKD$, PUT, i^yT^yPT'ni^*^ A 26, 29 



^fST ^ 7 - F ffi® S ^ Ui X X y - C U ^ T. 

mmy y, 


0 : <i!(5^> §7-;PFj®1i?^tcfeU-s xj®^E<;y-*u, ^tv^^fST-sxx y-> 

(Wx - Sx). 

1 : <|S[5'i> =&7-;PFffi^*CfcU5 S XX y-V 

M^^T® y (Wy - Sy). 

2 ; <is^> s-xx y-xM®*ci5U-z. xffi^t<in^^)*T-S7-;PF 

JS^^T® xMlK^^^TS (Sx ^ Wx), 

3 : <l5:s^> §xx y-xffiH^^cjoUS c:tL^5tFc;T5 7-;PF 

y a (Sy - Wy). 

X-zPFffi^i^^XX GET^PUT 

® J: 7 tc X X y - rfi* ^ JiS -r S SfT ® , 7 - ;p F U T s 1 - ^ 

ei t-b^T^ t T. 

j±/i: MAPS, ^^®^**^'XX y-Xffi®**SVUi7-;PFffi1i^*^6Xt-n.Tfex7- 

t^y 
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MID$ 


MERGE (DISK K) 


/^')±(Dy"vfyAb, <7 r-fX;? V 7°7>tc<J: 'i 7,7±®7’d7'7 

l^y 7 'i LZ 1 -7©7“d 7'7 AKL, 7^ y±ca§ ^-r. 

yzV±(DZay‘9J^t, T-i X7±©7“d 7'7 A7 r-f 
a, r ^ X7±07’n7*7A7 

MERGE 7”7 3 70§ 

©CHAIN d ^1-. 

;±® : ®-^7-l.7°n7"7A7 r-f ^H±7X^— 

^ ^^" 0 Ctt, "Sequential I/O only" J^7 — ^7. 

CHAIN, SAVE 


m m. 


it 


3t ^IJ 


■r-fX7±©7“P77A7T'r-'U^)I^LS-r. 
MERGE <7T^-'L'X'fX7U7’7> 

MERGE ”2 : TEST” 


MID$ 


MID$(B$, N, 2)=C$ 

<^ 2 > m»(D-X'^nzm.^^^tz. 

<^l> 1 255 ©®®, tfz, <^2> 255 ©®HK:&OtOf*t) S-frA. 

<^2> t/c« <^2> ©fi*5 <35:^?y> 

i!C> <3t^?lJ> ©7-<T©3t^ha§^^S7. 

)±m: b(D-^^ii2^U ^©p«ctt5c^^y©Humt-A 

€. KI/K0 3-FKa*tT<fi§v\ 

tA, \-^t 2^U :7^©ja^ic?5^a*t 


m m 




3t giJ 


3t?:5IJ©-a3«ra#jl5AS-r. 

MID$«5;^^i![>, <5tl> [. <3t2»)= .<3t^5lJ> 
MID$(A$, 3)=”ABC” 


mm : MID$(M^) 
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MID$ 


IVIID$ 



m m 

WIK 

fflj 


hi£M(Dm ^ ^\iiLtt. 

MID$«5:?:5IJ>, <itl> [, <^2») 

B$ = MID$(A$, 2 , 3 ) 

COUNTRY$ = MID$(”JPNUSAFRAGBRCAN”, N ♦ 3 + 1 , 3 ) 


© <^i> mS(DX^t^^ <^2> 

<^l> tfz, <^2> 

<S^2> <X^?[|> © <^1> #S©35:^*^^;&{iiJ:i:ai5©X^|S:*^’ <^2> 

J: <1C^n> © <^1> #S©X^i 

1> <-X^ny ©X^IScJ: d MID$©jfitt J? +x h y y i?*(S©X^?iJ) 11£ 

y ti-. 

-S KI/KO 3 - F caEbT < 

#,^ : LEFT$, MID$, RIGHTS, + y 7°+7 °d A 23, 25 


MKI$/MKS$/MKD$ ^ «| 


MKS$«^fflJg|||gcIi» 

MKD$«fgfflJtll^fi» 

I 3 t glj I A$ = MKI$( 16961 ) 

LSET B$ = MKS$( 1 . 23 ) 

RSET C$ = MKD$( 3 . 141592654 #) 

»ar-y'§yyyAT-;5'7r^+C^LT*§a}TPf, »aT-7« 

I) i)©T*T. 

MKI$ : SSffi^ 23 i:^( 2 /NM F)©:*^?IJC^^(CVI© 3 M). 

MKS$ : #lfg^i 5 :fa ^4 5 ;^( 4 /xM F)© 35 :^?yc^^(cvs©ii), 
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jt 


MKi$«giit{a» 
















MOTOR 


MKD$ : h)O35:^?0C^^(CVDC9Ji). 

(e: 7 yyu f-^vr'i ^i-ciSrflr-^ § tiit-piKa, v^T 

mmf-:^^^'^m.itL, Z.n^LSKT/RSET-Cy V\.Xt^h, put 

=&tTv^s-r. 

:inh<DmwiTX^n<i^^^^titzm&r-^^, i)-sea, cvi/ 
evs/evD (D<^mwi^m.m u t t. 

mm^ 6^ t ^ s 3 - f ^ t 

i %^(DWLm.}im.wk(oic.'^nt(Dm%^m.muxwmt 

SfCfi*U6961 ®:1 p^, .I®|S[fi©F3®^Jltt&H4241(16ii*ie)-rS)f), A$ = CHR$(& 
H41)+CHR$(&H42), ttiibh, A$ = ”AB” t ^ t t(±T>'NM F ^ t t-ftit). 

•3t!5, ii:ilr ——Fh.^^fTbUT't', 

;±® : STR$Mi5[t t) iT. 

#,^ : CVI/CVS/CVD, LSET/RSET, -9-y7°;P7“D;2*7 A 26 



BASIC FC^D i-r. ^Mfg7°nAOfm r 

^■^'7T. i¥t < li BASIC a. —-tf—Xvj:^i7;i/^#RitT < fi^ 


V7 CTRL + B T, t® BASICS-FI-fef'DtT. 


MOTOR 


^ ti I ®-te'V Fx-ru=l-y®^-:?®ON, OFF ^$lJ^®L^f. 

m ^1 MOTOR [<7.'f>y^>] 

3t fflj I MOTOR 1 


<XT'y9^>&0 C7Fv(±*^-7(±0FF t^D, 0 ON t ^ D S T. t*, 

<XT§ ON ®tt^*?>(f OFF C, OFF®t^S 
^F>a’ON CLt-t. 
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NAME 


NAME'^sx^-n 


m m 

I 


X •< 7. 7 T-f L S f. 

NAME <ia7 as <ilf7r-1'-'l/X'r7^^ij7':5'> 

NAME ”2 : SAMPLE. BAS” AS ”2 : SAMPLEl” 


<IB7 ^ 'J 7°i5'> T^^tL-Cv^^r ^ X7 r ^ <ff7 

^ X7 'J 7“7> 

T'f 77 7 r ^-I) 7 r ^X 7 y 7°7 0jBSffMa,” ( Kx-f T’S-i-: ] 7 t 
Tt. 

Y y 'i Fxy 71 ®r ^ X7*^*®ao^ac^f y 

<IB7T^;Lr^ X7 y 77> i; <iT7 r ^/i-r ^ X 7 y 77> Fx^ 7##tt 

7 r-l”7 r-f-'K±7 y ^■y:^. 


NEW 




NEW 

NEW 


NEWtt7^ y±©7D7"xA^»ML, -r^T0^^^^y]m(7 yT)Lt7. S*, ^<D 
t §^75^tlTV^-5 7 7. 

n V y Ft, x v y F y^;PC h izV tt. 



T^ xXx-i’ x7SW2 ®}fo;^tg(c:*ti;EtTm7lt^tiTfc’y, tV7x^ 
y BASIC 3 V y F t LTUfTT# S J: ^ C L/c ^) (DTt. 

NEW ON Ttt, r-< y 7x-f y 7 SW2 CD d ■^, 2 #~4 #X ^ y 7 ^i t*5 
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OCT$ 


T# if. 

NEW ON 'yf 1 h^'y h (0 l)T*tif. 


x-f •yfX'f •yf^SW2C7)«B6 

2 <->:^xA^-K> o: BASIC "E-K 1 : 5 K 

3 <fi7f8[> 1 : Ht 80 Iff 0 : 1 ?f 40 ♦}? 

4 <?tS!!> I : 1 BS 25 ff 0 : 1 H® 20 ff 

<^>= 4#X^ 'yf-©fl* 2^3 + 3#X^ -yf Ofl* 2"2 + 2#X^ 'yf 0®* 2 

* i; f «', 25 tTX40 Ngs-BASIC ^ BASIC ^ - F t ^ C 

«, <^> = 1 * 2^3 + 0 * 2^2+0 * 2 t^t), <5^> Kfi, 8 



(dM^ 8MB:c^MLr, f <iSc5^i> ©flti,-32768 

32767(i7-ctt0xb^i^ 65535)i-C©|gHC;^Ona';&D if A. <^^>CDmtm^tl?>:Z¥^iJt 
(DMl^^iiikOtisOTt. 

<m^> 0fi 

0~32767 
-32768~-l 
32768~65535 

#BS : HEX$, VAL, f y n f 7 A 24 


ffibnS8ilSiB3t^5IJ 
0~ 77777 
100000~177777 
100000—177777 
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ON COM GOSUB 


ON COM GOSUB | 


m m 


m 

m m 


ON COM («lil^S-§-»] GOSUB <^t#-§-> 
ON COM GOSUB 1000 
ON COM (2) GOSUB *RECV 


L tz RS-232C lElllC A;0#J D o * i: # -S A >® 

tzm-^ii, mmmttuKi-tir. 


1 : RS-232C W, 1 0li 

2 : RS-232C % 2 

3 : RS-232C W, 3 0,^ 


fztzL, 2, >; 5 ' 7 x-Xd-C— 

tl^CT, RETURN 

RETURN i; t*t §a45»TU/>:m*^^SMU, t § Off*^ 

mLt^. 

fzfzL, ff#^0RETURN-C«, 7 7 

tL, 7“^7'7A^iIEU<l!)^TU^-&^. t < !9, U^v^ J; ^ K UT < 


COM ON •? ^-y:^. 

ON COM GOSUB tt, RS-232C 0IS^ OPEN U/S^UtT^ UntfW^ t * 

r) 

mm ; COM ON/OFF/STOP, OPEN, RETURN 
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ON-GOSUB / ON-GOTO 


ON ERROR GOTO | 


ERR K-t'y h $tLS't©T% X7-®a;P-f"y|^TS, 

*1 t1-, 

V t D, RESUME if. 
7°ni7*7i>.®lltT*^7^«, i2'-rON ERROR GOTO 0 ^HtTtT, 

45^CL.Tfc’< J;-5 CUT < 

y ±Ki)^|5St), l/j5' h^- F-C$)oT4))X7-^a;l^-f->K^a*^^^-:3TUtV^t-r. 

ON ERROR GOTO 0 CD^fT^ti, x^—jfi? D X7“-;><'y-tr —5^*5^ 
7°n^'7AO|ltTttff±US-7. 

X7—Ma^^ —^>F3C ON ERROR GOTO 0 xy —}; J; — 

h 7 'y 7°)©JSHt*o:^>:X7-©X7-y< 'y-tr-i>'^S^L, A®||fT^^±t tT. 

“Undefined line number”x' 7 —*5®;i 

<0 tt. 

x7-Ma;w-y">©45-cttx7-S!iDiA*^(ii3i y x7-®a;^-y^>'©ii 

t7c|31'^X'7—^tlC^d"T-5x-7 —7-fe — 

±LS1-. 

#BS:ERL/ERR, ERROR, RESUME, ^yy;l-yv^yA22 


m m 




35: ^iJ 


x 7 - 7 !)<® c ytzt^ Ltt. 

ON ERROR GOTO <^T#■§■> 

ON ERROR GOTO 1000 


ON GOSUB/ON GOTO | 


m m 


3t m\ 


$ n/i l-'T'tl*'©^T(C^3•lld^ L S f. 

1) ON <5t> GOSUB <ffS-i-> [, <^TS■i■> •••] 

2) ON <Tt> GOTO <^T#-^> [, <ff#-^> •••] 

ON A GOSUB 100, 200, 300, 400 

ON N GOTO *ENTRY1, *ENTRY2, *ENTRY3, *ENTRY4 
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ON HELP GOSUB 


<^> ©iiciEUT, "<5^> ©fi" #ao <tT#^> tt. <^> © 

3 T$) o * ^ , tT#-t©Mt>'© 3 # a ©fT*^':55-lK^ i: ^ !9 ^ -r, 

ON-GOSUB©:®^, <tT#^> 

as: <^> ©fi*^^A©*l'Bt::tt, "Illegal function call" X i (5 ftA^'Oii-5 

#,^ : f->7°;Lrnif7A 29, 30 


ON HELP GOSUB 


m 


HELP 


m StI ON HELP GOSUB <^tS-§-> 

■Z M I ON HELP GOSUB 1000 


.©^^^»TtTlo < t, Lm7“n^*7A©|ltT4'K 


HELP 


b <5 t ^ #j 1 ^ o s r. 


b 0 3iA.:9-©*t^ t 


tT HELP b t ft&©#JOiA^®«#^(KEY, COM, PEN, STOP 




Kf±, Ma;L-f-y©ig$^tT#-^^jgSb^T. 

Ma^P-f- ?. (DW-Mlit, -|S©-9-T‘;P-^ >©«-^ t |S| CT, RETURN C i ^ Tfrt^ t 
T. fc^^^RETURN tLfzt^ii, 4^»Tb/cm*^^SIIU, t § «, 

■5-©fT*^bSlflbiT. 


tzfzL, §© RETURN T-tt, -y ^ w-<;P©7° 

bfX^45^Tl.t, X 

fi, 7°^x•7 2^ttiEL<l^lfTt^-e•^. t < J: 5 C LT < :^i§ 

INPUT HfftpCffl RETURN b INPUT (Dd:<D 

fT#-t=&fs^^5*S X’D^7A-rii^*®a^L*UtLff 


:$:5|5C:©^^tt, TX“'J T-'>g y:/n jZ-y X’nX'y Atpi:::^DX'yA© 

xA©|ltT4’, §dHELP|+->&ffUTjgS^«-§:U-5, 


fe©rT. 
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ON KEY GOSUB 


HELP ON t^/o. 

#,^ : HELP ON/OFF/STOP, RETURN 


ON KEY GOSUB | 


t. 

^ ON KEY GOSUB 100,, 300 b Jgg L**#-^, -Is J; D 

7r Yi^'>3 (i 10j@i>D 10®ST <=??#■§■> ^3£^T#< 

^7^^COiXt>0 ^ b hT^ ^t. 

f- 7*^©affla, —)iS©-0-7*;P-f- Y©il-a-1 ilUT, RETURN J: oJ 
T. RETURN bLtzb^li, L/cm*^^SIflL, L # tt, 

•?• ©fj*^ ^ SW L S "f. 

/c/iL, tTS-f-O#© RETURN T«, fij t) jlA<^:6^*||^L/c®^t [^UX7 7 ^ ^^;P© Y” 
n7'7AfTtufe Y5J;acffi^LT</>:$i/\ ::n.§iE^T5 L, X7 7 X»§ 
ti, 7“nX*7A«iEL < l!IfFL^-li•^. i; < 0, L^v^ J: ^ LT < 

V\ 

KEY ON ©«^,-e*UtL(±’^ 5 

t, y ryyys >'^-2^3fe©®tg(7 r >x '>3 l 

KEYT^#Lf^X^?iJ*JA;^§ixS^|g)ttto^^tL^t-. fc/fL, 

©F^#(i, CONSOLE-Cjg^f-S .1 tCi :: L tt^|gT*-r. 

#B8:KEY ON/OFF/STOP, RETURN, -9->7°;P7’n7*7 A 30 


M m 




3t <?IJ 


7 r 3 >+-Hj; ^SiJijL St. 
ON KEY GOSUB <^TS■t> C, <^T#■§■> •••) 

ON KEY GOSUB 100, 200, 300, 400 
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ON PEN GOSUB 


ON PEN GOSUB I 


LXy'l itfeODSy^i^b^^^^^CKEY, COM, HELP, 

STOP ^ to L 11. 

<nm^> t-tt, 

(DW.‘B<it, t HOT, RETURN KXyX^r^^t 

t. /c^C RETURN tLtzt^ii, 4'»TL/cm*^^HISL, t ^ H, 

^(D^fi^6^§SL^t. 

f^fzL, i © RETURN T(i, *iJ!5iX<?<-*5^^L/tiimt|SIUXi? >y ^-i;P©7° 

a^'yAm^ht^6J:di^}§^br<tz^\^\ zn^MMti t, ^ y 

n, 7“^^'7A^iiEL<I^IfTLt-^•^. t < ^ tt LT < **$ 

I'L 

; <I©#^CJ; PEN ON t 

-a■^. 

: PEN ON/OFF/STOP, RETURN 


m m 




3t m 


ON PEN GOSUB <^tS-^> 

ON PEN GOSUB *PENTEST 


ON STOP GOSUB 


m jg I STOP 


st 


ON STOP GOSUB <^tS-§-> 
fill ON STOP GOSUB 100 


:(D^^^mnbXis< t, nm:^D^*7A®|ltT4JCST0P 


tt. z ©^^agj *? a.»©^^ tbx stop ^^ 


t^^Utt’, •ftfeO#Jt)a.^^«^^(KEY, COM, HELP, PEN tO t 

^T. 

®a;p - f - > ^ oa'jf «, -JI5© it 70P - f- > © :%^ t ig U T, RETURN C j: o T ff V ^ S 
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ON TIMES GOSUB 


t. RETURN tLtzb^ii, t # 

S-f. 

fztzX^, #© RETURN TIi, §!lt) 3 i^*i^:^U/>:®^t|n|UX^^ i/^;i/© 7 ° 

n^'-7 AfT^i: E-S J; 9 Kjg^LT < b, X ^ <y i?§ 
ti, 7°aX'7A}iiEU < ^^)fTU^•^^•^, t < (5, U^vi J: ^ UT <$ 


/i,® 


: STOP ON®tt^-e^U 

c:o^p^tt77°l) 7—'>3 77 “d 77 ^f— t[st^+ —U 

rLt<^\ yo^^yA(Z)^ff:d^^ipSlf^tirLt-^(D^^jki-6/z&(Di)(DTf. Ltzi^ 
■oX, -5 b, 4^3|S0 |STOP] ^-:feJ:U= |CTRL| +rcl(D 

7°n7'7A©tpif*5T^^< *oTLSv^t7. 77'J 7-'>3 y7°n 

7'-7 J; -5 CUT < /i$v\ 


#83 : RETURN, STOP/ON/OFF/STOP 


ON TIME$ GOSUB 


« «i 


H it 

3t fflj 


ON TIME$=”<^^IJ>” GOSUB <^T#-i■> 

ON TIME$ = ”07 : 30 : 00” GOSUB *MORNINGCALL 


^(D^^^mibXiS < b, mkX'a'fyAomn'^, iCJi^UT’IS 

ST. U©^^ti§l| 19a,^©^ij'^t UTp^ 
ft6©§!|(9 3A.^^S#^(KEY, COM, HELP, STOP 

E) S7. 

<B#^J>CIi, S!Jt9 3i<^^^!l$',”hh : mm : ss”©^©:T^?!J(Bf : ^ : ^^^2^X^l.fzh 
©. TIME$©^® t loHi) TiS^ U S 7. U ©^^TffJffllT^ ^ 2 ± 

1 ^'miL(Dm^ti^ ^Z.biih'O^t. 

<tT##> Ctt, Ma;^-7 7©|fl$&^T#■t^^g^Ut7. 

7 y ^ 0^-j§(i, -IS©77;u-7 7©;#^ t [1 uT, RETURN C J: -3 TtTv^ ^ 
7. 7'^C RETURN tU/cU^tt, '7»TU^^0f:6^^HlflU, U* U § (i, 

7©fT*^UH§flUi7. 

^cffU, fT#-^-:?#© RETURN Ttt, S!lDiA^*5%^U/i®mUllUX77 7-<;u©7 
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OPEN 


n, :/^^*7i^ttIEb<i)f^bt-B:^. t < ! 9 , b^fJ:-5 C UT < 

}±m: TIME$ ON O^SlT^l:^ 

^ t, fJDiA^P#^lJCffiV^*5'^bS1'©TaEtT < 

#,^ : RETURN, TIME$, TIMES ON / OFF / STOP, >7“;P7°n:7'7 A 31 


OPEN 


m m 





it 

OPEN 

<7r'1'lPx-i'7.^ IJ 7':5’> [FOR 

<^:-h 



•^> 




yc 

i^j 

OPEN 

’’TEST. BAS” 

FOR INPUT AS 

#1 



OPEN 

’’LINES. DAT” 

FOR OUTPUT 

AS #2 



OPEN 

’’LINES. DAT” 

FOR APPEND 

AS #2 



OPEN 

”2 : DATAl” 

AS #1 




OPEN 

’’COM : N81XN” AS # 1 



b©#^(i, <7 r-f-'PrV 'J 7°7>-Cj§^t/w7r^/p§^-7°7t'CAai;'lSf'^0* 
7 r^fflEb, <7 7^-'p#-t> §7)UST. 7 r-f 

tt, <7r^>'P#-^> ^fa^f'6ZttiCj:Vff<'^tt. 

7°ay^9A^T, «0OPEN b tCJ: 1, |1H#C«©7 r;P^T-:/7TS b 

b*JT#^T. I^BfCT —7°7T§ I) 7 r ^ .'PiScIi, ®I®15TT*^% BASIC ®|a|tiBtK”How 
many files (0-15) ?” -ryt^b/Si!c^®;tT:t-7°7-r5 b t aT# t-^rA. ai!t©7r'f 
;p^;y--7'yT-S«^, <7r'i';p#^> 

<7r'l';p#^> l-«, l*^<?>15t-r®Si[fi5'Jg^T2.>li;*5T^tT*b BASICISliBtlc 
<^-F>ii7 T'f JU'\CD7 7 6 i><DTt. ^ - F iZir{k<D 4 D ^ 

-r. 


INPUT : A;(7^-F. R#®7 rT-'p*^^A;'i«-tT-5 i a JtTK, 

OUTPUT : tH;>i"e-F. ifb< 7rT^p^#D, 


114 









OPEN 


APPEND : 

: 7'yrA^~h\ r^x^7r'{)V(Dy>rAXtiitJ, tfzltRS- 

232C 0^7 r ^ ck ^ 

FOR<^-F> '7-^777;P7r^;PK^tTAttl;^^tTa 

FOR<^-F>=&^BSb/>:il^, 9 >^^7 r 4 ^UizMLrXtiitl^tf^ ^ t tt. 

<7 r4 77 'J 7°7> izf^ML fz 7 r-^ ^i-t>^RS-232C iBimy r 7 '>~7 

yy^^uXtiiJjTtA^, yyrxXtatltl^m, FOR<^-F> tt#B§bT </c $ V\ 

7 yrAAtatl^^f^ tzif)iZii, OPEN ^^m^fLr^mLfzW^y-'^'y 7 r field C 
i D 7^-;PF^I&>&#JD^-C^j0tiH>=cD 

as : INPUT!A;^)^-F, APPEND(iEJp)^-FTtt, tM^^tifz7 

t, OPEN Htf "File not found" OUTPUT (!±i;fj) ^ - F T 

tt, ScfB^$tifc:gM®7r'i';p*5ffL<f^0Fi, [SI-iS©7r^;p*^^S)oys«^C 
U^©7 7d'^P«|IJI^^tlTifU<f'^DlI^fLt-T. 7 77'A^-FTtt, 

7 7d'-'p*^'#SU^ft^tfr/'>:CfF?)titT*^', f TC^tTUTt^-l) t ^ttfi^7 7 d"-'P 
K5^t'CAtB;'j*^^fi^t>fxtt(0PEN 7 ^d 

RS-232C@IS7 7d';P^d--7“7l-|.f#-a-tt, <7 7 ^ ^Pr ^ 7 7 P 7“7> 11T, 7 7'1’^P 
^COM<0|IS-^>Ici!UT, ^<')r^, 7~Ymt£}z^m'^ti»^Wh'0^t. 
t fc !?-C-T. 

COM [<0i||#-i->] : [</Ojx-f> [<'7-Fft> [<7F'y7°t''V F> [<XON T-T 7f"> 
[<S/x”77-7>]]]]] 

<0ll#^> ttRS-232C0il©#^>&^U, 1, 2, 3T||SUSf. t 1 t D t 

■t. ^J:ii, 2, 3tt, RS-232Ci^?I^ 77 7^-7df-F*^'ie;'STa. 

<^N° >J r ^ > ti E, 0, NT^U, '(, r-i 

n^UST. 

<7-F:R> (il3t^=&*T©Kfflv^SU7 FISCT, 7 8 Tl^gSU 7 ^mMLfz 

i^'-r OUJ T^> TO STsfiE 8 

<^^°yr^> liNT^Utltf^y S-ti:A. 

<7 F 77°U'y F> ttX F 77°f''y fe©T, 1, 2, 3Tjg^UtT. IttlU-y 

F, 2ttl.5U'y F, 3U2 U'y F^**tST. 

<X0N7-i’'yA> aXON/XOFFCJ;^aft®JfflI^tTaX-fyAtt 
T X $ tifzm'^ XON/XOFF t -f. N $ tifzm'^i^ (i - ©®JPtttT 

htl1^9:X. 
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OPTION BASE 


OPEN 


7 tT JU 


X-f 7 7 7 T ;U( K 7 T 7'*-§- : ) 

INPUT. OUTPUT, APPEND, *S§ 

RS-232C 3 $az>!r-v 3 >7 7<;u (COM :) 

« US 

+ -t;— K 7 7 T Jl- (KYBD : ) 

INPUT 

7^- ij->77'f Jl^ (SCRN : ) 

OUTPUT 

X 9 > 5' 7 7 -r ;U (LPT : ) 

OUTPUT 

*-b‘y h 7 7'r.'U (CAS : ) 

INPUT, OUTPUT 


>±E : Xi? y-yyr-l'^KSCRN : )2 /nM F^0:$:|g35:^^ai77l-€. C t 
tt-C# t-li-A. 

#,^: CLOSE, +)-y7°;P7°DX’7A 1 , 26, 27, 28, 29 



OPTION BASE tt, 0 ^ A« 1 tf. 

0 t 4 D ^ T, 

X°nX*7A4'-CiB?y^l?!c*5l:w, t 

D S-liA. 

RUN*-5i/'ttCLEAR^tTL)40fLtf^D t-ttA. 

>±S ; OPTION BASE 1 ^llfTLT^^®*/jNffl^ 1 

LT 0 Oti?) t, "Subscript out of range"i7—;6t^T •!) J;-5 D ^T, 

t tz, L J: ^ t T S L, "Duplicate Definition''^ 7 - D S 

f. 

#SS : DIM, ff y7°;P7“n 7*7 A 5 
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(1] PAINT 



0~32767(&H0~&H7FFF)O|gH|^©SI!lt‘J§^t 

tt. 

<5^> ttdC-0~255 ®|gHF^OSi5[Tj§®Lt-r. 

: INP 


[1] PAINT I 


STEP(x, y) 

I 3t glj I PAINT (-50. 120), 3, 4 
PAINT STEPdO, 10), 6 

(Wx, Wy)'|-4^.|L^;^tLT, 

Lt-r. (Wx, Wy)tt7-;UFM®Tffi®tS7. STEP^odT, LP(ft||#M^^)*^^ 0 |g 
^ffi1i(x, y)TJi^75 ^ t 

COLOR TJIS $ tli: 7 ^ 7 7' 7 7 7 F i? 7 v:> i5 ti S 7. <:^ $ tlfzM-a^Z. 

(i, ®Jg5gt[^i;^N°U'y t 

(Wx, Wy)Ofe*s%#fet|^i;feTi.-:3i:*#^CIi, PAINT }i, 

;±® : PAINT lit'i-df- i707, F®il#li PAINTIjfF® 

ii:, (Wx, Wy)d^*7 ^ 7 F 7®^Cj)-5:®'a-Cli, "Illegal 
function call" — t^H i7. 

#,^; [1] COLOR, VIEW, 7777P7n7*7A 17 


^ til ti^$n/-cfeTtoos-r. 




PAINT 


(Wx, Wy) 


C, <$Sltfe> (, 
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[2] PAINT 


[2] PAINT 




m ^ 


PAINT 


2 t ^J 


(Wx, Wy) 

STEP(x, y) 

PAINT (255, 120), TILE$, 4 




(Wx, bt, (Wx, 

Wy)(i’7-;PFffi«Tj§$tSt-. STEP LP(*||#ig;^J*^^©IS^Mg(x, y)T 

T-'PX h ’J y'/y (D-X'^l\\(D^^'C''dkt. f)tt. F7 

<:^T^PX h U >;/>i; tt, SH^-FTn^S:^, 8 fecp*8 fe* 7-^-FT 3*n 4096 

^'i/^(D^mii, <iFT;PXhyy^> (DX^n(D^^y^^=‘~Y(D2'MWl.MM{i:^'yYy< 
^-y)izx>)mm^tltt. <^T;PX h y 7y'*> ®Jg^®:^fetteil^-F h:*7-T-F 
tTS^y tT. 


• an^- F®ii-& 

p y y^y 4'®#i:5:^(^^'T p)®^- F* 5 ; 5 'T;p® 1 i 8 f 7 F®^F:^ic;tt 

T. X^n-F®2it|Sc«JlT, i5'T/P®ttl8 F 7 h CD ^ , 1 hzMi^-t % Y y bl±-fe7 h(e), 

F7 Mi y 42 7 h (H) t bT^^ntT. <^T;PX h y y^'yi^nX^CDM^T 
htlli, ^(D-X^niDm-rmUit, b®J:^ (c;bTg^$$ii5«8 F7 ^®^^°^-V=&i^Cn 

ST, 

WCHR$(&HAA)+CHR$(&H55) 

lemmmm 2mmmm k7F/n”:J'-> 

&HAA 10101010 •o#o*o*o 

&H55 01010101 o*o*o*o* 

2 P V y^omvt. b® 1 T*^ ^7 h t 0T*S 

b7 F*5gu(ij^6c;^oTv^ST. b®/N°i5'-7^*2^^T>'Pt Lxm^-^ritzm^iMubiv 
(f, ST*b y-7® F 7 Kfe®±7CMA 

ST. 


• i; 7 —^:— F ®:@f'n 

F TT;P®^ 1 *(± <i5'T-'PX P y yT> CTtFSTS b7 b^''“T->CS 
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(2] PAINT 


/c 4096fe4’*16#.^-F®i#'^tt4:i:^^ri:C, ^-i/uoms F'y b (1 7^ 

p-'y l'##i; i t-e-r. 'AoM^^mbritz 

i^ll) 8 feif • 8 fe"E- F S)-51'(J4096fe4'• 8 

CHR$ (&HAA) +CHR$ (&H55) +CHR$ (&HFF) 




F'v b 

1 2 3 4 5 6 7 8 

&HAA 

&H55 

&HFF 

10 10 10 10 

0 10 10 10 1 

11111111 

fffSf ^ 

56565656 


#F'yhCo®-C, myjl^(^2m^tbry<iy'y bom-a, 

S^4’;PX b i; >A(D^%(DmW(D^^imTii.by h i2°)(D^^mb, &.Wi, 2'®ffi, 2^©^, 

if. 

1/'y b 5 h-^''P''y b 6 1® 8 F y b tifc ^ t 

Dif, bfzt^-oX, /^°^'y if. 

0|J)4O96 fe4^-16 K®Ji^ 

CHR$(&HCE)+CHR$(&H8C)+CHR$(&HD0)+CHR$(&H22) 


<-2<>®bfT 

- 2‘®|fT 

- 2^®|fT 

- 2^®1fT 


K'V b 

12345678 

&HCE 

&H8C 

&HD0 

&H22 

110 0 1110 

1 0 0 0 1 1 0 0 

1 1 0 1 0 0 0 0 

0 0 1 0 0 0 1 0 

fffSf-S 

-><U'y b#'^ 

75843390 


HU®^Ji:I^Ui ^ C, #FybCoi/iT, 2 JilSlh tT^^°^'y 

itCiD, *® i 5 D if. 

y±M ■ <f-f ;PX b y 3(4096 

4) t 3(s.5v>tt 4)-csij-:5f>^y 

§tiif. iTi, 3f:^($>^i.^a4 35:^)C«*^Viil^i;:(±'Tllegal function call" 
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PEEK 


V V y^^LXi t-Ti t, P^PbI 

i}^i^ti^':>fzO , y ^ "Out of memory''zcy — i/Ztl-ofzD'^i) 

^ tijt$) 0 tt. 

tfz,PAINT PF^-e®»^fIl§ ^-rOT, ea.-df- f©:l^*^PAINTll 

iT(DiMWt^^j:-^tltt. ^tz, (Wx, Wy)dS.^^ y F'>®^K^fe-5*irnKtt, "Illegal 
function call" zLy — t^J:^) tT. 



<TKyX>« 2 /'t-i' f 0 flT, 0~65535(&H0~&HFFFF)®|gH-rffiSLS-r. Z.(Dm\t 
Z. (D-^^miWWz DEF SEG X'SM ^fifz^^^/'yY^-Af-h ©ti^T F y X L t 
1-. 

#,^ : CLEAR, DEF SEG, POKE, VARPTR 



F-<y*s, fa^SifOJ: 

7^ F-<y*^f>tDtt|gctt, ^^m\:fzmWi(Dh(D{Y'}ff^yA)h 

y'i h'<y-ilj^^-^tlXye^B0Xt^6fS<Dh(D{U'</l'^yA)it$) f) tt. 

0 1 h U :ff -tzyx 

-!(*), t 0(i&) Z(D 

atg^fl^L PEN t ON PEN GOSUB T^« 
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PEN ON/OFF/STOP 


1 : 

2 : /^;p-fe/X 

',iM : <Mm> amt 0~2 ©IBH-C, "Hlegal function call" ^7- 

b^j:Dtt. S*:i©MifettPEN ON T ^-lt^. 

#B8 : ON PEN GOSUB, PEN ON/OFF/STOP 


PEN ON/OFF/STOP | 


m m 

W~^ 


3t m 


7-r m±, W‘±wmLtt. 

DPEN ON 

2) PEN OFF 

3) PEN STOP 
PEN ON 


»5ti) D, on pen 

GOSUB $ tit V ^ s yiiZ^m.Ltt. 

*5t2) fiJ5iA^s-^±us-r. pmy^h'<y^PPbrhmm^i-~f-y'^(D^mm::vt 


»5t3) liXWiy'i V'<y^nLrh, M 

a;p-f-/^®53-lKtte.I D i■y:^. Ud^U^O^PEN ON C J: oTfiJ D 
M1^7T U/c;i Ma-'P— 

>±®: 7“D/^7Ai^7B#CttPEN OFF i ^ C UT </c $ V/ 


#,^;0N PEN GOSUB, PEN 
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POINT 



POINT STEP(20, 20) 


y-i'y (Last Referenced Point. B§0 

Utr-r^c: tej; 0, fSHtl^Bfcc:® LP t-f. 

POINT (i7-;PFffi1i(Wx, WylTLP i. ^ 0 t T. H 

STEP til® LP ^T. 

^IJI) LINE(-200, 30)-(100, 120), 3 
fiJ2) POINT(-200, 30) 

LINE -STEP(300, 90), 3 

#BS:LINE, [1] POINT(Mi!l), f-77“;u7’D7'7A 17 



isu-clp)^, <®tg> 

Ki D, 77 yFffi^t bTffST. 

<«|g> C (i 0~3 t ^ T. 


0 ; 7-;7Fffi®?S®fflt;:^^$tL7L>LP®XM® 

1 : 7-;i^Fffi®^®fIC^^$fT*LP® YJ®^ 

2 : 7 7 y - tL/c LP ® X 

3 : 7 7 y - ntz lp ® y 
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POKE 


y POINT B 

')-ymM^<i^^^-^ritz&miS.Thtiii, ^ t t-astr< fz^i\ 

^m : POINT 


m ^ 


C2] POINT 


m m 


POINKSx, Sy) 
COL=POINT(473, 120) 


•tT'fftT. (Sx, Sy)*i'ea.-df-[2]POINT(Z)ffitt-l tT. 

gM^-F©:!-^, Fy h(0:||^*'T)t/Stt-fe'y b (1: 

tL, [2] P0INT-ef#^tL5fitt::®i/^-fti*^i;^rfD tT. 



V(8 \i'y \')(Dr~^ 

<7FW'X>«2/M F®®^, 0~65535(&H0~&HFFFF)®|gH-rJg^tST. ;i®fitt 
DEF SEG-Cfi:W$tL*-feX*X > F^-X7b^^®ffi?^T Fl^X^gftbS 

T. 

<^>litm^^tiv6T~^T, 0~255(&H0~&HFF)®ffl7^Otl«7^y t/M![ 

}±M- c:®#^(i, JllE®X^y ®F3#^*§m;?.Tb^ ■5/cfe, t BASIC*^^11 

mmi'?(Dmmt^j:i,zbh$>f)ti-. ttca, 

X ^ y V -y 7;^ tr -5 b T < /c $ 

#,^ : DEF SEG, PEEK, VARPTR 
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POS 


POS 




m m 

m gij 


P0S«S!f5t» 
CX=POSCO) 


mE(Dti~v^ o-rgctfctt39 )t 

Ltt. 

httTi ^-t^:^. 


#BS:CSRLIN, -tfy7°;P7“n^7A 10 



7-;l^F'ffiS(Wx, Wy)-C^$tl^ F 7 

(Wx, Wy)0ft:bDt^, STEP y)Tm^t6 Z t 

zoy^^ii, ^7°i/3 >0 <^N°^'y F#-t> ^oym-a, 

(Wx, Wy)-r*$tiaffi#0F'y F§, JIS [1] COLOR Ci o 

PSET t to/c<|lli;c^|gL, ^0^N“W'y b#^0:* 

^-TF -y b 

PRESET LP(fti^#S@;S)tt, T. 

#,«: [1) COLOR, ^^>'7';W7“n:J'*7A 17 
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PRINT 



^l§$ ttfz^'a liid^i'T(D^ S '?'. 

^t. t-fz, WL\U(OmK\i^^m<D^im 
Mtfix\^^x, Xy7.(Db^\at-^^, i-:^(Db^i,ziiy-^ 

W.^(DT — :^^M^t?>iM-a, E-KJDifi-^-h LT, a>y(,), -biavyi;), 
tt. $>6i}^\:i^^^7^ux^xtiz-^mLr^isb^riXi3D, g 

=i>-^(,)^W.yfzm'ali, -biavyi: 

Ctt, W.m<i^tiit]Ltzh(D(D-r<^'^^li^liitlLtt. 

t-T-y 3 ynxm^nfz^^n(Dm'iki^, ^ 

i 3 n y^ayy^m^t^ 6-f, ^(D'ilX'<!K<D PRINT izjz 

PRINT (Dm.mBt Lxmmn (?)a ^ t^ ^t, xvifyAp^x'"?"^m^^fzm 
WiXLlST b, gKftiK "PRINT" 

)±M : ^^S.(dWl\Ux, WMi'^{WW]'hWLM^^)xt£ < t 6 

tf. tfz, m^sX^mU<DM-^i)m^<Dif7-VJi'(DiiLmi:^ 

b'A<DniChtzyXLtym-^)ii^nLX7b^bX 

#aS:LPRINT, PRINT USING, ^yX;i^XvifyA12 
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PRINT# 



PRINT #1, A$ : : B$ 


T'f T'f yv > 

RS-232C0M7rT/PC, <^> K J: t)t* 
tULtt. *^^;a!IfT7 - F (CHR$(13))®^^*# tB b t-T. 

<7 7T^p##>C}i, OPENCJ;-:>T, ^©7 r T ;7^:t-7°7 bfc b # 

^Ltt. 

PRINT #I±, PRINT T*jiifflC|±Jt/-rS:l-a-i;I^1*©ff^ST, 7 r T-'PCr-:^ tB b 
tTdb t < K7—77i/-^’;P7 -'p^©#^§tBb©^cii, z:ti-?>©r—7d^7 

r T -'PA^'^iEb < ic-^BB-itS 3: ^ J; ^ t;:, V t-HA. 

(INPUT mm). 

JUT, T^77±©'>-'>-7'7-\^;P7r^^PC^bT*#tBb^tT7:«fa-|--7i, r~:^(D 
E W 0 lb o V :> T t!J0J b S-f. 

<^> *mm^(Dm'^ii, ^lavyoT^motr. tzt^ if, 

A = 123 
B=456 
C=-78 

PRINT #1, A : B : C 

tt6t, T7 7 Ii:tti:^©3:-5 T. 

□ i23nn456n-78 (nii^s^Eii^b^-r) 

h b, 77^iK-5 tT"'; 7 F^^©racifA$bL^^53-^c^efer ^ 77C 

*#tBbTb^t.^^T(jfA3^tl5^e©«ttPRINT©:«-&t|lbT^)©T, r^ 77© 
§ ti t T, 

<S^> *535:^^©«-&, -feS nny-Cg^i), *^-7PRINT#tpcaiIb*E^t5iB^«-Atl 
J-f (3 y'T^7’7'-'P7 ;j- —r —'>3 yTHtr^cbU. 
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PRINT # 


A$ = ”CAMERA” 

B$ = ”93604-l” 

PRINT #1, A$ ; ; B$ 

CAMERA, 93604-1 

PRINT #1, A$ : B$t r ^ X X CCAMERA93604- 

1 i-y:A*^6>2ooSy©X^?0Et 

TSn<^3Atf.I tttTg 

—^ t tT3 y-T, -If 5 nay, M<^<D$>6^!sb<D^&, 

^-y(CHR$(13)), y7^-F(CHR$(10));&t'^^tfil^«, ^'xTPX;a--r- 

y 3 y a - K (CHR$ (34)) C J: a THATr -fXXC*§tfcl§^rf 9 t ^± A. /f h ^ 

A$ = ”CAMERA, □ AUTOMATIC” 

B$=”nnn 93604-1” 

PRINT #1, A$ : ”,” : B$ 

hr-^ XXKtt, 

CAMERA, □ AUTOMATIC, □□□93604-1 

ittTti A$©4'® a — ^(D^W0 t ^aT C ^ INPUT # 1, 

A$, B$t UTT-iJ'^K^iitf t, A$C« CAMERAS, B$C «□ AUTOMATIC 
ATUtVy □□□ 93604-1 T. 

PRINT # 1, CHR$(34) ; A$ ; CHR$(34) ; CHR$(34) ; B$ ; CHR$(34) 

^ XXca, 

’’CAMERA, □ AUTOMATIC””^^^ 93604-1” 

INPUT #1, A$, BSEftia;’’CAMERA, □AUTOMATIC”^ 
A$C,”^^n 93604-1”^ B$i;:^^iAtfi t Sf. 

r T "SCRN : " ©«-&, 

INPUT#, PRINT# USING, WRITE#, ■0-yX;P7°nX*y A 28 
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PRINT USING 


PRINT USING 


m m 


iii®nt±j:bLs-r. 


PRINT USING : <^> C 


<^> •••] 


] 


3t fflj 


PRINT USING ”#####,.”: A. B, C 


MWi:(D <^> LTtin yvC,) ti'stt-fe 5 3 


! . ^^^tifzX^^m^X^^Wc<DmW(DlX^fz<if^iiitjLtt. 


Ltt. ^^^tifzX^mHn+2)x^xvR\^^m^ii^»^j:X^imm^tv, m. 

@ .lo© "@" <^> 

(D^(Dl-:>(DX^nt^, "@" ©i!ci5 <J^> ©fSSicJ; 

a®: 6 :i kliT^ 

# .ffiSt/iffiSSci Da5cfi®ffil5:*S/jN$v^i:^C 

hi, ^-o'^TliitJ^tltt. 


titt. 


+ . <m^umx^n> ©ftiotA«*^coit*«-^, 

-(vT ■:'-XfE^)"- <#^$IJ^:5:^:?IJ> OM'^i^-oiXtztM^, Il5[fi*^":ft©f[© t § CM©^ 
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PRINT USING 


**. 

i, "'*" -cmubrtiitlLtt. ZO "* *" 

¥¥. tiitj^ti6mm(Dmmiz "¥" 

btt. "¥¥" Z0^-^ (DlUJim 

^bLr^^htitt. iEL<ai;^$ 

0 tt. 

**¥. <m^pm-$:^n> ©^ncoitfcJi-^, ±i3o2-p(**t¥¥)M:^©mgt 

^J:f)tt. "**¥" Z(D3^1^»\i'^¥" (DiH 

b^^tirtati-^ntt. fzfzL, ±130 "." i mmm 
me "," 31^T@og^0D^±^T±±^±^. 

."#" 

_(T^)•••MiEo®Ji]3^^ 1 yi:^^fzA.e:Z^ t l-xm^^t 6tznb c-fEffl b t ±. "_"em < 

•®J#P3t^lU^03t^ 

t. tztzL, B2p:B§S:^ttJgS-Ci t±^. 

%ibtz(mi^s.ALtz)zte^^x^miim^^ <t£^fzm^b, %>^fzm.\mme 
"%" 

<m^um-X'^my^em.WL(Dm^%m-x^^mmbfzi^^, ^mmx^(Dmxfti i oo/n° 
^-yfc^oT, <s> c^b, memvmLhxi/ti^hritt. 

tzt^lf, 

PRINT USING ”©=¥¥### ” ; ’’BOOKS”, 2500,’’TICKETS”, 1440,’’DRINKS”, 4300 

ttit, "@=¥¥### " 
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PRINT# USING 


BOOKS=¥2500 TICKETS=¥1440 DRINKS=¥4300 

#BS;LPRINT USING, PRINT, 


PRINT# USING 


m m 

^ it 


PRINT #<7rT>'US-§->, USING ; <^> ( 


<^> •••] 


[ } 


3t gij 


PRINT #2, USING ”@ ####”; CASE$, NUMBER 


<7 rTOPENi;:j:oT, ^©7 r T U/c t ^ 

SUST. 

PRINT# USING tt, <5^> to* 

v^Tfi^U, 7 rTT. 

^©^^*^*7 7-1’;u-C$>-St PRINT USING ttiigai^UTT, 


#BS : LPRINT # USING, OPEN, PRINT #, PRINT USING 



7-;l/K0^i(Wx, Wy)©f4BCF7 h 

(Wx, Wy)©ft^9DC, STEP §oUTffl5^M^(x, y)-cmMt6 Z b hT^ tt. 
<yN”i/-y h#^>-rK7 F©fe§JgSUST. JIS (1]C0L0R C 

^ $ tLT Vi § 7 ;j-7 7* 7 7 7 F :* 7$ tv t T. 

PSET^HtrT^t, 

#S8 : [1] COLOR, [2] COLOR, POINT, PRESET, ■777;u7d7*7 A 6, 17 
130 




















PUT 


PUT (DISK^- K) 


mm 

# ^ I 


7 r-f Jl//'f'y 7 T ft’Ox-^ 7 r-f JKC* # tii L S r. 
PUT [#] <7T'1'>il/#-t> [. <iiC5t>] 

PUT #3, COUNT 
PUT 2 


PUT a, i^^-^nfz7 T'i 'S y y 7 r ^ ttziii7‘') >) ->7 

(1) r'(7.y7T'(JU(Dm^ 

PUTtt7y7*A/^*>y774'®r-^5'^777"A7r'1’-'^C*^ttib^^. ^i^§ti/>:7r 
T ;Ki7y7*A^- F-C^-7’7§tiTi/^^UtL«'^D t■y:^. 

(iSc^Xi7 r T — ie^'^tifzi'zi — F7 r4'®r — 

7§ t±)$ tiST. 1/3-F#-t©#/Nittt 1, 65000 TT. <iC5^> 

±ii-^K tt, aMF:fTt)tL/c, GET, PUT T'Jg^$ tt/c 1/ 3 - F®?7:® 1/ 3 - F K#§ ytl U S -t. 

(2) 7“iJ> 7(LPT:, LPTl : ) J>?.l't±77 U->7 tT^KSCRN : 

/sr,y 7 7 4jcr)r-7 5r, 7°>; 7 7$>SvXiBffiKtB:UUST. ffi^^ti/>:7 r T 
- FT:t-7°7$nTVi^fUtltf^ D 

^^'y7rt^h, 7 F)|5ch^|R$titT. 0 

<? 255 t-COffiTjg^U^-r. <mAyt^mm^flfzh^, fcj;t;0d5fg^§tt/ct^C«256 

a® ; * # tliT r - 7 tt S) li. U * FIELD, LSET/RSET C J; 9 L T fc’ (f ^ D ^ -it 

#,^: FIELD, GET, LSET/RSET, OPEN, 77’;i^7’n7'7A 1, 26, 29 
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PUT® 


PUT® 


m m 


3t m 


-y —ST. 

1) PUT[@] (Sx. Sy), [«^^»] [, <^#>] [, <y^T'f 

vO'y 

2) PUT[@] (Sx, Sy), KANJI«;1|:^Z|-K» C, <^#>] (. 
vKSjv—>, <^('7KSj'y—>) 

PUT® (100, 100), G%, PSET 
PUT (0, 0), KANJI(&H3021) 


1 ) 

GET@ l,:i Xy ^ 
tST. 

ffi(i(Sx, Sy)(iGET@®«^tR^-r, 7-;^ yST. 

^tST. 

>y7^N°T-y0-5^., 

fe©TT. ^fSSUT’Ji^ti, <^ 

T> GET@Tv^7-y«'1=&ll^t;^ct#Ofii;^Sj*$-y:5S9J:;bT<*'$V\ 

7‘77-f 'y 7^^°T-yTiiiffiK^^T-5^®|/^?>^^6^^fT^^H^T■S) fe®TT. 


PSET ; @B?yF3®7’T7^'y7/N°T-y§T®SS^^bST. 

PRESET; SM^-—FcOiSr-ntilB^yi^O^N’T —y^RKETlSi^UST. Ty —F©i# 
■a-«#F'y F®^-'°y>y 7-(^® F'y b®^N°y'y F#-^) (4096 feT • 16 

15-(^® Fy FO/N°y'y F#^)) t ST. 

OR : iE^yFy^x-y 7-f'y 7^^°T —y fc, TTI’;:^5jiiffi±07*7 7-f'yX^N'T —y t 

^F'y FrE(^OR(iiafP)b, T0^*TfflffiC*^tST. 

AND : iS?yF30^^°T-ytiiiffi±0^^“T-y^F'y FC:'i:CAND(i^SW)G, T0S 

ST. 

XOR : ig?yF30^^°T-ytiliiffi±o^^°T-y^F'y FrtcxOR(iFftfe6^iiafP)b, 

ST. 

<*fT> XOR ^Fi^tTs^CE^^^SLST. 

<^f^> (iiii®^—FCSoTjil®0^^*5^ViST. SH^—F0:@fB, F'y F 
t, *y-^-FO«^, F'y F r 1 0 ^N°y-y 11 ST. 

Ts t ^(fTTCiiiffit;:^5 F y FOfeA^yfi/.y 3 -p, SS^iJFgcT’y 7 ^ y 7 ^n° 7 —y® 
>y F#^ 6 ®t if;: "AND" 5-Fb^T 2>E, ^N°y y F 2 tlS T(0011 
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RANDOMIZE 


AND 0110 - 0010). 

<y y 7y yy Y ii y ii, 611^-KO h # K GETOT 

-y^yy~^~YliZ 5 t # ® 7y 3y^<yy-y 

Tt. ^(D2y>(D^^y/-yiimi5thm^m\ 

<y tr^yyyYijy-yiit, &mx:~YTm^&AymPJ^&T$>yfzY y 
fB^T, 0-^yy7yyyYyy->it, F 7 Mi:^bT®feJg^-ef. ^y 

^t. 

^■5^ 2) 

OSC^=&<il?3-K>(JIS 3 - F. ^^- Yy :^7yzz.:^7;\,0^)!,zXyXm^t^ b tCJ: 

^yXDiXh 0 c KANJI«)i^3- F»^i^ffl1-a iXDi^'^tnm.Xt. 

t£is, nm^^WC^^i, KPLOAD CJ:oT'>XrAC^^1-§ b t*s-rs S1-. 

*^i), 2)tfe, z(D^^^mnti>bLF{mmmm}^)ii(Sx, sy)c#ij]bti-. 

a® : GETOh PUT@tt, <y tr^yyyYAy-y, O^yy^yyyYyy-y^m^V 
X, &mx-Yxm^s,A.fz'<y~y^Ay~x-Yxm^si-im'^0m<ii, mott 
T[l-iiiffi^- YX^mtii: ^ C LT < 1-z-^^\ 
tjiio, 1 -3® PUT@T(i 1 ZtiiX^ S-arA. 

#B8:GET@, KPLOAD, f-X 7°;l-Xn X*x A 18, 19 


RANDOMIZE 


m m 

^3 


RANDOMIZE [<^>] 
RANDOMIZE 230 


<^> C, iTtv^ail®a(seed)^Jg^1-Sbi;CioT, RND 

<^> -32768 32767 ©ISHTJISb^-r. <^> 

tit, y yt-iyA^^^^tlX seed ^W^bX^tt COX, <S^> A;'j 
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READ 


t, "Overflow" X7-i;^fD SI". 

; RND, -9-y7°yl^7°ni/7A 32 


READ 


m m 

3t m 


DATAL ^mmzi-txLtt. 
READ <^iSt> [, <mk> •••] 

READ ZIP, ADDR$ 


READ DATA 5 S-ltA. READ (i DATAIt^^I-Jb^^ 

fifzr-^^im<Dn^-.TmmzmK)'^xx\^n tt. 
<^IS>tt,DATAtT4’-Cf§^L/cr-^*5^^^i!c-rS>2.«^«5C^^iCT^ir< Tli^f D t 

T. 

loOREADT, m^(0 DAT A ^7 ^m^iz 0m LfzO, ^ READ T 1 o® 

DATA ^7^0mLfzi:)t6ZtA^T§gt. 

READ4J©<^i!(>®iSc*JDATA®r-^f[^SA'Ctto*:«r-a-tt, "Out of DATA" 
tt. t^^:^titz<^^>A^DATA(Dr-^^J: 0 

^(D'<!K(D'READtm^^l^^t, b^nT:f± READ 
^^® T - 11. 

DATA RESTORE 


-;i®:READ-Ctt, 11*5—"Type mismatch" X7-Ttt^t<, "Syntax 
error" X 7 —*5|BZ1 D ^'T®"C‘i4SbT •s 


#M : DATA, RESTORE, 7°;P7°d i/y A 3, 14 
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RESTORE 


REM -f-o^ y K(r)%fs\z%r>iz<^m^ 

UST REM ©f^bDKTdf 

7.Vuy ^ 

a® ; REM cM< 3 n y(: )TE^oTftfe®#^$-Mt:j-'r 11 


RENUM I 


< l0tT#^> y'y 2^ 0fT#-tT-t. ^P&'T S t ^ 0 y 

n A0ftlU0tT#-i-*^"Si?ffl $ -f. 

<li^> ttifL< ol:tS#tT#^0*v^:^i0li^T, t 10 t i? t-f. 

RENUM (±, GOTO, GOSUB, THEN, ON-GOTO, ON-GOSUB lo J;t;ERL T#^ 

fkcoj:^ /^x-y-y 

"Undefined line xxxx in yyyy" 

zitvti, tT#^yyyy't'C, A^$>6, ^cDM^, 

§ fiT V^ ^ V- xxxx « RENUM C J: o T$ tL ^ yyyy § 

n.TUSViJ•f0-CX'7-0^4U:^cfT#-i-0^^*^:9-*^^* < ^oTU U/c*5o 

T, RENUM ^ff^mi^yT='yy^^-^~yL'CiS^^t:ii7Ai^:^Tt. 

)iM : 65529 ^1 tA^T^ ^0 J: ^ "Illegal func¬ 

tion call" J^y — t^O S'T, 


m m 




rP^>^7A0^T#■§•^i^FfU < Oltitus-r. 

RENUM [<^^T#-§->] [, <I0^TS■§■>] [. <li:^>] 
RENUM 1000, 10 


RESTORE 


m m 

fflJ 


READ -cmV DATA ^T0$feai^T^^I^ U * -f. 
RESTORE [<^TS■t>] 

RESTORE 
RESTORE 800 
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RESUME 


h, READ DATA^1§ 

Lt:Maiiy°'C! ^'9 Atp(DMW<D DATA 

#B8 : DATA, READ, y 7“;u 7 °d 7 A 3 


RESUME 


m m 




L, A(7)||tT^SIfl ESI-. 

1) RESUME [0] 

2) RESUME NEXT 

3) RESUME <^T#-§-> 

RESUME * START 


ST. 

#5t2) AO^tT^SIfltST. 

#5^3) <tT#^> Tjg^L/>:fT*^^^fT§HliEST. 


#0^ : ON ERROR GOTO, TyT;uTnT7A22 


RETURN I 

TT;u-T>%i^7L, 7f;©TP:/7A©||tT^Sr?flLST. 

RETURN [<ff#-§->] 

RETURN 
RETURN 200 

TT;u-T>©||fT=£rll7E, T®TT;u-T v^D?T/tilET^ GOSUB 
^WISEST. 1 -^©TTUu—RETETRN *5^)0 T 
RETURN Tti, ET, U i t fer§ ST. /c:^iE, 

T7';u-Ty©^a{h^fToTl^?>«^^, FOR~NEXT ©1^35*^13 GOSUB TTT^u-T 
y§D¥t/tBETl/i-S:#-a-, 'Ji^'-y^fe© <fT#^> C(S, T©T7Uu-Ty©Ilft;tiiEffl!ltll 
EX7'y7y-<^U©Tn7'7AtT^Jg^E^UtUf^'9 SHtA. t, XT 7 7 

TDT*7A«iEE<«jfTES-ttA. t < t), 


m m 

Eg 

3t 
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RND 


: RETURN i ^n A®Hff 4^, GOSUB^UT 

RETURN 5 t, "RETURN without GOSUB" X7-:65|3;i D 11*. 

#,^ : GOSUB, ^y-flXy-fu^'y 1^1 


RIGHT$ « «»I 


255 D 

<S>0fi*tO RIGHT$©fil«Jt;PX h y t’SD ST. 

^ny oT;?f(S yun-if, RiGHT$®fii« <x^?ij> t so*<iiUK>5ry ST. 

: LEFTS, MID$, T > 7°;!- 7°a i/ 7 A 25 






3t U 


tii L S T. 

RIGHTS«3t?:5IJ>, <5t» 

PRINT RIGHTS("ABCDabcd”, N*4) 



R = RND(-3) 


0 L(± 1 s T. f# ^ ai&tt, run fc’s xi clear r t c 

o h n^n fc ^ D S T. fzfz U, RANDOMIZE ^1KfflT4Uf, :: A 5 ;i t pItgT 

T. 

RNDMi[©^igtt, fg^TS <|!C^> OfBCSoTi^©Sa ST. 

lE(Dm : iT©gLiSt^l&^TS. 

^j:is, «iiC5'i»^#BSLT(^7 3fe-^tf), "RND" t LT’±l^a, IE©IS^JgSU 

Tc©LI^U«tgC^y ^T. 

#BS : RANDOMIZE, TvT/uTn ^yM.Z2 
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ROLL 



ROLL , 4 


'y vm> ctt, mm<Dm.i5\^(DYy 

640x200 Yy L F T(i-199 6> 199, 640x400 Yy F FTtt-399 

^ 399 S-C®flT, F'y MSc(lfe^fi) 

F 7 FiS> (-a, mM(DW5^(DY y Y<DWL'^^B'M.\-'tt. fF$tLl)ffi©|gHtt- 
639 ^ 639 t Ji^®F7FfC(lfe 

N t/ctt Y S t, XXn-;Llci 'J T-fS 

Y^n‘^thh^<y^^'y'^yYijy-T9')7L, N 

/^°lx'y F#^0TX yrtif. 

#,^ : f- >7°-'L'X’D X"7 A 19 


RUN 


m m 


m ^ 


3t ^IJ 


ij ^C^fei):7"□^7A©||^T^W^BU^•r. S/i, X'fXt?;!)'^>rP^7A^ 

y'^'JfCP-FU, ^(DZfa^yA^m^btt. 

1) RUN [<ff#-§->] 

2) RUN <7r'1';Ux-f (, R} 

RUN *MAIN 

RUN ”2 : TEST” 


RUN «, X°ny'*7A©||tTC^/it., ^iC=&f-4-r|gmt, 
t-^ 7 rT 


#itl) t, 7^ y±©7°n7"9AO, 0 tt. * 

B§-r-l)t, D ^-r. 7°nj/7 t 3 V 

y Fy^^LCfe if y SI". 
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SAVE 


#5t2) <7 r ^ X;? y ^ A^n-F L, fzti'tb 

Lfzt^-^X, ±.\iZfuify 2>.tih-otzM^, ^(DXu^yJ^^tm 
^^tirLt^^^t-fCOTBMLX < fz^^\ 7°n7'7 AcDllfT*^^^ h F y^-'V 
tcfe S-f. 

RtX'> 3 y^-o\ffzi§a^^iii, A®|ltTffiiCT-7 7 r-f 

-f, t-X'y^tltzttxyv^'yAimn-^tltt. 

#BS : CHAIN 


SAVE 


m m 

B- it 


X M 


BASIC r □ i/7 A^7 7"f>'KC-te-7'LS-r. 


SAVE <yy-(JVr'(X^')y‘^> [, 


} 


SAVE ”2 : MYPROG”, A 


<7r^^VT-YX7yX“/>-rffi£$^t^77^^KTVXX, RS-232CIP]||, ;*-fe'yh)C, 
7 ^ y ±® 7“o 7*7 A =1-3r-7’(*g b) C S f. b Yc 7 r ^ /VrV X 7 y 7°7 t H U^S 

A;i-7’'>3 7’n7'7Att7X + -05^T*-fe-7'$^xtf. ot y, 

7°n 7*7 A § LIST b* b § t H b^ 7 - 'X'T-b- S 7. 

A;L7'>3 7“^7*7A(i/^M y-yi^^lbJ±|g$tLT3r-7'$ttt 

7. oty, 7^ y Ct&a^$bl-CV^I,t§©^7-'7T'^0tt-fe-7$ti.t7. 

P ;t 77 3 y*^Tg^§ tLfc#-a-Ctt, 7“o 7*7 AttBt#-fti^ 7 y ff^^T-fe-7'$ tl 

ST.P;f7°'>3 yo§-r-fe-7bY>:7°D7'7A^7^ y Cn-F bT, LIST ^ EDIT Ci y 
l^^^&M/cy, ^Mbi 7 bT5 b, "Illegal function call" i7 —b^ytT. 


iiE : TX7-l]^s^©^r-7a, y-y ffMJ: y fe, ^<07rT;L'X-^-x^iE^Mbbt 

■f*b 777 FCJ:7Tl±7°D7*7A*t77^——7*§;jx7Vi5 b*5^f^b 

^5C:b*5^y^7. fcbAli*, MERGE n^yFli, 7X:^^-ff^5^®7 r-f 
bbt7. tfz, 7X7—lFM7-fe —7*$fxf>:7 r y t- 7 7 r-f-'i^b bT^<^ 

abTb b*5T# t7. 

P 7:/7 3 yCJ;oT-S 7 n 7 * 7 A*^^Bt^{b 7 yt 5 b, 

-SbF3^®^S^b*(±T§^< ;^^S®7aEbT< 


#BS : LOAD, MERGE 
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SCREEN 


SCREEN 


m m 


3t m 


SCREEN [<iia^-K>] [, [, <7’i>x•< [, <x 

-f 7, ■/U'f 

SCREEN 1, 0. 0, 7 





7Tt. 

^mmimxm) 


0 

y — ^~F 

640X200 

4 

1 

F 

640X200 

12(16*) 

2 

F 

640X400 

6( 8*) 

3 

^^mm:^y-^~F 

640x400 

2 


<iiiB7-f-y t), 7 ^'y if 

fe®T-r. 

0(S:ictil) 7*7 7-f-y 7iii®0^:^$'tT'5. 

Kttzii 3) J147*7 7.f -y 7iii®fi^^$ttTi.^SllJl^^i:$— 


<J7 ^ T 'i T"^—7'> i: <T'f77°l^^ 7'> T'^ 7 -< 7 7' 

■f 2. 7'(i)iitR=l-tT-5/c * © ^) © 

<7 ^r t <r^ X7°^-f^-7> ^;:^gSTi5^^lt^©El?fea^^“7'y F^-F 

h^-FCMLTtt (1] COLOR v^). 

(1) F*^l'li 4096 fe45-8fe^- F©Ji^ 

<77t^ 7*-?-7>Ctt7^7 7^ 7 7#^t.:J:7T##iAtf-<-7§fgSLS7. iB®^- 
Fti: j; oT®7.Sffi®SS((iM?^ 0 ^t. 


<77r ^ 7-<-7> CffiS7#?.ffii:-^-7#^i:©^);c>M^ 


tl^fg ilffi^-F 

0~3 7!7 7-^-F(0) 

0~11 6«^-F(l) 

o~5 M^mm&m^-F(2) 

0 , 1 M»mm^y-^-F(3) 


S # ji S tl ^ 7#-§- 

1~4 
1~12 
1~6 
1 , 2 
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SCREEN 


<r-f 7s-fv^ Biffin— F 

mmLtt. 





* 5 -^-K 
( 0 ) 

en^- K 
( 1 ) 

( 2 ) 

( 3 ) 

0 


L 4 't' 

tir^—L 4 i' 

tir^—v^^L 4 t' 

1 

^ —V 1 

^ — i> 1 

^ —1 C 7 )< 5 ^a^^ 

^ — v 1 (D^^yjk 

2 

V 2 

'< — iy 2 

^ —V 2 ( 7 )( 5 ^f^^ 

X 

3 

X 

1 , 2 

—V 1 , 2 

X 

4 

X 

^ —V 3 

^ —3 ( 7 )< 5 ^f^^ 

X 

5 

X 

^ — 1 , 3 

^ — 1 , 3 

X 

6 

X 

'< — i> 2 , 3 

—V 2 , 3 

X 

7 

X 

V 1 , 2 , 3 

V 1 , 2 , 3 ^-^^^^ 

X 

8 

:ir^— 

L 41 ' 

ti:^—L 4 l' 

L 41 ' 

9 

X 

—V 4 

X 

X 

10 

X 

^ —V 4 

X 

X 

II 

X 

-<-7 4 , 5 

X 

X 

12 

X 

'< — i> 6 

X 

X 

13 

X 

^ —v 4 , 6 ^-^^^^ 

X 

X 

14 

X 

^ —v 5 , 6 

X 

X 

15 

X 

v 4 , 5 , 6 

X 

X 

16 

:i:^— 

:ir^—L4t' 

v^:^L4i' 

:i:^—v^^L4't' 

17 

V 3 

— V 7 ( 7 )ol^^^ 

^ — iy 4 ( 7 )<^^^ 

^ — V 2 

18 

V 4 

^ — V 8 ( 7 )<^^^ 

^ —V 5 

X 

19 

X 

'< — i>l, 8 ^-^^^:^ 

^ —V 4 , 5 

X 

20 

X 

V 9 

^ —6 ( 7 )< 7 V-^^ 

X 

21 

X 

7 , 9 

—V 4 , 6 

X 

22 

X 

^-7 8,9 5 r-g-fiES^ 

^ — v 5 , 6 

X 

23 

X 

8, 

^ 4 , 5 , 6 

X 

24 

L4't' 

tir^—L4t' 

v^:^L4^' 


25 

X 

^ — V 10 

X 

X 

26 

X 

'< — i> 1 1 

X 

X 

27 

X 

^ — V 10 , 1 1 

X 

X 

28 

X 

^ — V 12 

X 

X 

29 

X 

'<-i> 10. II 

X 

X 

30 

X 

^ — II, 12 

X 

X 

31 

X 

10, II, 12 

X 

X 


X EP : 


(2) 4096fe4'*16fe^- 

<77t^ 



H®^— K 


0~3 

;<;7-^-K(0) 

1—4 

0~15 

SM^-Fd) 

1-16 

0~7 

i«^3-)@tieil^-F (2) 

1—8 

0. 1 

Ii^»|g2&7-^-F(3) 

1, 2 
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SCREEN 







tj-7—^— K 
(0) 

an^- K 
(1) 

(2) 

(3) 

0 

v^7r:L4't' 

L4'l' 

L 4'^' 

L 4t' 

1 

V 1 (D^^yjk 

^ —V 1 CO^^Tjk 

^ —V 1 (7)<5^^^ 

V 1 

2 

V 2 (D^0:7^ 

^ —V 2 

^ —V 2 (7)^^:?r: 

X 

3 

X 

^ —V 1, 2 

— 2 

X 

4 

X 

^ —V 3 (7)^^^ 

^ —V 3 

X 

5 

X 

^ —V 1, 3 

^ —V 1, 3 

X 

6 

X 

V 2, 3 

^ —V 2, 3 

X 

7 

X 

V 1, 2, 3 

V 1, 2, 3 

X 

8 

X 

^ —V 4 (7)(7f^^ 

^ —V 4 

X 

9 

X 

1, 4 

^ —V 1, 4 

X 

10 

X 

•<-v2, 4 

^ —V 2, 4 

X 

1 1 

X 

V 1, 2, 4^-^^^^ 

•<-i5 1, 2. 4 

X 

12 

X 

^ —V 3, 4 

'< — i>3, ^ 

X 

13 

X 

V 1, 3, 4^-^^^^ 

V 1, 3, 4 

X 

14 

X 

v2, 3, 4^-0^^^ 

v2, 3, 4 

X 

15 

X 

l,2,3.4 

V 1,2, 3, 4 

X 

16 


L4't' 

L 4t' 

:ir^—v^^L4t' 

17 

X 

^ —V 5 (7)^^^ 

X 

X 

18 

X 

^ —V 6 

X 

X 

19 

X 

—V 5, 6 

X 

X 

20 

X 

^ —V 7 C7)(^^^ 

X 

X 

21 

X 

^ —V 5, 7 ^'a 

X 

X 

22 

X 

^—>6, 7 

X 

X 

23 

X 

v5, 6, 1 

X 

X 

24 

X 

8 (7)<i^^^ 

X 

X 

25 

X 

V 5, 8 

X 

X 

26 

X 

^ —V 6, 8 

X 

X 

27 

X 

v5, 6, 8 

X 

X 

28 

X 

^ —V 7, 8 

X 

X 

29 

X 

'<—i>5, 7, 8^*0^^^ 

X 

X 

30 

X 

^-v6. 7, 8 5-&fi!tSS 

X 

X 

31 

X 

V 5, 6, 7,8 

X 

X 

32 


ti:^— 

ti:^—L 41' 

ti:^—v^^L4^' 

33 

V 3 

: ^ —V 9 

^ —V 5 (D^^Tik 

—V 2 (7)<5^^7F 

34 

'<—i> 4 

: ^ —V 10 

^ —V 6 

X 

35 

X 

^-^9, 10%-B-fiic^^ 

^ —V 5, 6 

X 

36 

X 

V 11 (n^0.7^ 

^ —V 7 C7)cJ^f^^ 

X 

37 

X 

^ —V 9, 11 

V 5, 7 ^'a^^TF 

X 

38 

X 

^-vIO, 

— V 6, 7 ^'oi^^TF 

X 

39 

X 

;;9. 10. 

v5, 6, 7 

X 

40 

X 

'< —V 12 C7)<7f^^ 

^ —V 8 (7)<iV-^^ 

X 
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SEARCH 



tl7 — ^— K 
(0) 

an^- K 
(1) 

(2) 

(3) 

41 

X 


"<-y 5, 8 

X 

42 

X 

'<-i>\0, 

— 6, 8 

X 

43 

X 

^-v9, 10, \iiktm.Tr^ 

v5, 6, 8^-^^^^ 

X 

44 

X 

"<->'11, 

"<-v7, 

X 

45 

X 

>9, II, \2i-km7F 

>5, 7, 

X 

46 

X 

"<—> 10, II, l2^^fi£SS 

"<-'>6, 7, 

X 

47 

X 

>9,10, II, I2?:^^ts 

"^—yS, 6, 7, 

X 

48 


L 4' 

ti:^ — L4t' 

L 41' 

49 

X 

^ —V 13 

X 

X 

50 

X 

^ —V 14 

X 

X 

51 

X 

"<-y 13,14 

X 

X 

52 

X 

^ —V 15 

X 

X 

53 

X 

'<-'y 13,15 

X 

X 

54 

X 

'< — i> 14, 15 

X 

X 

55 

X 

"<—> 13, 14, I5^^bE*S< 

X 

X 

56 

X 

^ —V 16 

X 

X 

57 

X 

^ —V 13, 16 

X 

X 

58 

X 

"<-y 14,16 

X 

X 

59 

X 

"<-v 13, 14, l6^-&Jt*S 

X 

X 

60 

X 

"<-y 15,16 

X 

X 

61 

X 

13,15,16 

X 

X 

62 

X 

"<-■:> 14, 15, 16 

X 

X 

63 

X 

'<—y 13,14,15, 

X 

X 


C® t <rV 8fe^-Ftl6fe^-F 

Vii, t icttiftbT < 

SCREEN fc, ^Ot y F7, b^-7jf-F, LP(*ife|#M 

t*D it. LP(DWm^mii'7~JU\:mM, x^y-yffiMtfe(0, 

0)Tt. 

#08: [1] COLOR, A 20, 21 


SEARCH (DISK F) 


M ii( 


S ^ I 


@e5lM*^t®4'A''b^i^$nfcfl?^SLl±sL, ^(7)mm(7)miiL^mtt. 
SEARCH«ie5ijE^^>, c, c, <xT'yym>'i) 

NUM = SEARCH(A%, 100, 0, 3) 


SEARCH ®f(tt-l it. 

o i-a:^. i*coig^ij^isca search 

©HfTfCTfe/foTDIM i-^:^. 
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SET 


<xr-y 7°{ii> ^'fg^t^ia-a-tt, ^©fsiPi-eaiLsi-. 

SEARCH \iyyy2^7 9^7.y7'i)V(D-i'yr'y^7.^W.\^]i!,Lfz'0, GET®, PUTQT 

ffl V^-S. I3?0r - ^ SI t tii t ;^: D-T S © -5 c: t t T. 

#m;dim, option base 


SET (DISK =E- h') 




» ^ 


7r'f>'L'at4©-tr'y h-'J-fe-y 

upji 

” n ” 


1) SET <K7T^#-§->, 

2) SET <7T-f>'UT''f^^'J7':$'>, 

3) SET # <7T'f>'l/S^>, ”P” 

,r„ 


»»p»» 
iJ !-«>> 


15: m 


SET 1,”P” 

SET ”2 : NOTWRITE”, ”P” 
SET #1,’’R” 


JgSt/cF-y^T*, 7 rT;^#^(c:,”P”S/ctt ”R”(S 14 X^) I-J: oTfg^^ti 

”P” iiy'i h T’nr^ .1 E, 

PRINT#, PUT, WRITE#^t''©*§IA<;^»lf'^*5*itatl5 11 i)C, 7 r ^ KILL 
T#4< *!9 ST. 

”R” ay-F777-7T h (*§a.^5lM0O«'l4=&7)UST. L, 

(5 ST. 

c:tL<?>L(^©T:^*sMtt5c^tLTjg^§n/s#^i^(i, T©t#, 

PI^$#iST. 


Sstl) <F7-i’T#'#>*sjg^§St/c«'^K{±, fg^a;a/>:FT^7‘©T^X7^#I^Ti-LT 
gtt*5-7U INSIST. 
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SIN 


«^2) <7 X:? y ^%-^nfzy J'i 

#BS : ATTR$ 



<SSI5^> y, SGNcDMtt<^0i ^ D t f. 

jE(7)l^'n • 1 

0 : 0 
• ~1 

: -y-7 7’;W7°n7'7A 9 


SIN 


PRINT SIN(-3.14159/2) 

<^s> (Dim^Mt<m^> (Dmmiyi^rvTm^L^t. 

mk^j:Dtt. 

#,^:ATN, COS, TAN, -y-y 7“;U7 “d 7*7 A 6, 30 


m m 




3t m 


iEmv-^»^mit. 

SIN«iil5t» 

X = RADIUS*SIN(ANGLE) 
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SPACE$ 


1 


M IS 


SPACE$ 


m 

m gij 


ff $ <7)^ 11 . 

SPACE$«|S^» 

QTTY$ = NUM$+SPACE$(10)+RES$ 


tt. <m^y ofiao*^^ 255 t-y:^. 


#,^ : SPC, -9->'7“;P7°n :/y A 25 



^ tE 


u s-r. 

SPC«IS5t» 

PRINT ’’SUPER” ; SPC(IO) ; ’’BASIC” 


fztzL, SPC(±, PRINT ^LPRINT^^h'®tti;^X4'T©^i£ffl1-a;h*^*'e§Sfe0T, 

-32768 i}^h 32767 0 

tt. tfz, IE©IS®«-&Tfe, WIDTH 
<f[^> Ltf, 


#,^ : SPACES, TAB 



^fi'-V) 

tT. 


#88 : ^>7/l^7v^yAS 
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STOP ON/OFF/STOP 


STOP_ I 


STOP iiyo:fyAC0Mh^—^'PBft6t:ibC0h(D-C, AO i: Zl t 

STOP t, ik(D^ 

Break in 

Z^T, <tT#^> tt^tT04'»T$tlfc::^n/''7AfTOtTS-t^ftttf. 
STOPA^^^tT^til) t, BASICa#C3v/F/"<;PKi)if D St", t/c, CONT^t/ 
F'Ci 9 y“n/'7AO^fT«-S§it'l) ; ^itzL, INPUT, LINE INPUT, 

INPUT$l8|!t^ J;©A^;:i:©^T'TX b'y-^LtziM-^, BMt 6 Z t 
STOP a END t D, ^<D — — ^ Xr-l’-'F^/n —XUS-^- 

A©-ra*LT<yi$v/ 

#B8:CONT, END 


m m 




7'□^>^TA©||^T^-^4’WrL, =]v> K"E- tt. 

STOP 

STOP 


STOP ON/OFF/STOP 


m m 






ST0P| ^-fej:U iCTRL| +|C|tcj:5iiJUa^©i^nT, «jh, Ifih^®JiPus-T. 

1) STOP ON 

2) STOP OFF 

3) STOP STOP 
STOP ON 


it 1) gU)jA.»^yp^L STOP CTRL + C t CiU D 


^±L, ON STOP GOSUB 
»it2) SlJDIA^;&»ihLSf.JiI^STOPCTRL 


+ 


C LTfe^a^P-f-/ 


^©:9-lK(i|3 ; 5 t -y: A ( STOP + - $> -5 VUi CTRL 


+ 


_^tta'^©l!)fFC^f (5 SI"). 

3) <9 ± Ltt. STOP ^ VUi CTRLl+r^^ff 


^•liXTV^S/cU-r, D L*^t, ^©^, STOP 

ON CJ:oTSJ!9IAA*5|^^§tl.-5 t, But; |STOP| ^-$)^VUj: |cf^ +' 
iltCioT, liQjSI/'F—A/K:53‘1KL S "T. 


C LA 
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STR$ 


: ON STOP GOSUB 


STR$ 

STR$m^» 

LISTING$ = STR$(NUM)+NAME$ 

^ i: * 9, e> 

(v '(■f-XsB'^) 0 ti'. 

<m^> ctt, sigta«j:t;^iS(S(fg)ifg, ^tt. 

am : STRING$ i; EgiJT Sit. 

#Bg; STRINGS, VAL, V-yT^/uya A 24 


m m 

3t m 



STRING$ 


m 

9 ^ 


3t 




STRINGS «5t>. <3t^^> 

<if5t> 

A$ = STRING$(50, ” + ”) 


) 


<^> tt. 

m^0i)^6255(D 

IeHPIT'^ < 0 


#BS : STR$ 

















TAN 



fgIfSM, SWAP C 

tzfzl^, 2 OO^ifcCDSd^'—S![LTV^!5fV:> t, "Type mismatch''' - 317 —D S'f. 
#88 : th>7“;P7“ni?'7A 10 


TAB _ M ^ 


tzizl., TAB it, PRINT ^ LPRINT ;&C bi^T^ -S hCDT, 

<m^>ibit,-32768 32767 0 

^t. ttz, JE(Dm(Dm'^T’b, WIDTH 

TABT«, spchitv^ 

T7}^6, bMfiJTt. 

#B8 :SPC, f->7°;l/7°ni5''7A 22, 30 


m m 


it 


3t m 


tB t)MM7(7)iiM<7)itLS t &^iiitiLtt. 
TAB«ifxt» 

PRINT ’’SUPER” : TAB(IO) ; ’’BASIC” 


TAN 


m 


m m 


m 5t 


X M 


TAN«ii5t» 

Y = X* TAN (ANGLE) 


(Dim^in-r. <i!t^> ommiysyryx^mi-t-r. 
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TERM 


gt^ D ti-. 

#HS : ATN, COS, SIN 


TERM 


m m 


3t m 


i/7~.-r U'Hc ^ )\/^— K IfZLt't. 

TERM ’’[COM;] [</<'] x-f) [<9-Kft> «A h-y rtl'-y h > [<XON ;^-T-y 
[<DEL zi-K]!!!:S> [<RET+-]!!!:g> [<^ffl CR = 1 -K]!0; 
il> [<0:$:S'>7 h^-Kti^)]]]]]]]]]” C. [<^-l''>] C. 

?>]] 

TERM ’’COM : E71XS”, F, 1000 


BASIC i5'-S FTtt, RS-232C 

IIlll^T^CTftfe03 !9 i-T. tfz, 

U^-h BASIC 7°n F3;7CJ;D, Nss-BASIC b 

i¥b< tt BASICS— a. r/u^^mLr 

COM : T, RS-232C AI±i^J=&tT7 b fc =&MC COM : 


<yN’ijxT> a, 

E ; 

0 : 

N : 

<7-Fft> tt, MScT-r. 

7 : 7 F«^^°'; T^> -CO 

8 : 8 b'y F T^> -CN t-lirA) 


<7. F'yT'kf'y F> «, x F'y z^C>y . 
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1 

2 

3 


1 t"'y F 
1.5 b'y F 

2 b'y F 









TERM 


<xoN T.-i'-yf") xoN/OFF ^ 

X : XON/OFF®J^§fT^. 

N : XON/OFF®J®§tTt?^V\ 

<S It <F'y +^7^i5'n-F mU±(D^^i:^i- 

s : 

N : Atti;t/^Rlig 


<DEL=]-K^ii> it, ^iSLtz DEL a-h^ommysm^^mt^hcDT-r, 
B ; BS BS 3-Ft bT®a^tLt-r. 

N ; NUL3-Fi^^^§tlTNUL3-Fi:tT®a$tL^1-, 


<RET=t—^il> tt, RETURN5 3-F=&g^^L^-r. 

C : CR 

L : CR3-F, LF3-F^5®)li}::3llfflUS1-. 

<SfflCR=l-F^a> it, CR 3-F^SfSU/ct 

L : CR 3 - F^mmmmmmzit. 

-F(KI 3-F)t, S2^ig35:^Oi^^yD^*^1-5 3-F(K0 3-F)t^^^b^1-. 

P : KI 3 -F=&HlB4B(ESC-KK;faS), K0 3-F=&H1B48(ESC-H till 

I : Kl3-F=&HlA70(SB-pictBS), K0 3-F=&HlA71(SB-qt3^=gS)*5 


H : ^-«afS^-F 

F : ±-aam^-F 


«, BASIC ya h 


F*^5 BASIC E5 t^iZit, SHIFT STOP 


Ltt. 


)im: <mmmm(DX^^> ^i^<t'<r(Dy<7y<~^it, ^iss^titzm-^, basic 

tzt^izmM-^nriyzyi^'J A'f 
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TIMES 


tt. tfz, ^l§ia-t 

tfz, ^^7^-^izii, <tz^^\ 

RS-232C m 2 iHl^io i t/H 3 [Hl,^-Cig -5 :: t (i T # ^ -It ^. 


TIME$ " »I 



m 


n 

it 

1) TIMES 

2) TIMES=”hh : 

3t 

m 

PRINT TIMES 

TIMES=”23 : 15 


TIME$CttSCJift©Pt^J*^*”hh : mm : ss”(Bf : ^ : m(DmTXilhtlXio *), 

Z tii-Cn tt. 2i m^lTt. 

^43, m^2)^m^^^ZtiZX^, mM^^W-tiZth-V^tt. hhca 00~23, mmC 
hi 00~59, ss Kli 00—59 0ieH©Kg5c:$SC^^J%Ji^LS-f. 


>±,m : Bt^iJtt, It < HJf i:-5 I- 

#,^ : DATES, t'ytJi'tuT'yJ^Zl 


TIME$ ON/OFF/STOP | 


m m 


m 0IJ 


1) TIMES ON 

2) TIMES OFF 

3) TIMES STOP 
TIMES ON 


TIMES GOSUB \zt'yXmM^fifz^m)\'-t><<zj^^Ltt. 

m^3) mk, mM-^n.fzmn^zt£-ox^i^(Dzt^%^x\^hmt 
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USR 


-c, D b*^bTIME$ ON J: ^ TfiJ D 

)±M: 7°n^'7A®^7Btf-(iTIME$ OFF ^HfTETio </* $ i.\ 

#,^:ON TIME$ GOSUB, TIME$, -^^ y A 31 


TRON/TROFF | 


m m 

# it 


3t m 


yu^^L.(Dnmm^imLt t. 

1) IRON 

2) TROFF 
IRON 
TROFF 


TRON RUN t, 7n AOfT#-^ 

y 3 (C])c>#'rT + X 

TRON ca, TROFF ^HfTF 17, NEW ^m'ill-tzm^h TRON 


USR 


t/sDEF USRCck D, ^ 

®lltTW5&TFyX^i§:^UTlo;a^^< •£ tt, POKE 

^ BLOAD ^7, 

DEE USR tcj; 0:6^^ 9 ST*Ofi-CJi^Ut7. 

FiA'«^CttO tm^^titt. 

<^iis> ctt, BASICm 

USR tL-2> E, tl/S DEE SEG ti/i-fe XV A F ^ —X C, 

DEE USR C J; 'O tifzW^WWi^(DUfjW:^r F AXltB^itT F A xfi)*?JnA 

usr KioTuft/a^tLA'^wigMisti, iret^^cj; 

D BASIC izum^ i}^T^ 11. 


m m 




3t m 


X ^ U u s -r. 

USR «#■§■>] «§liS[» 
l = USR3(J) 



153 





















VAL 


CALL'Ca«i!f®^ll&«'®«ig7°n;7'7ACSttSt-,1 t*?T§ ^t. 
: BLOAD, CALL, CLEAR, DEF USR, POKE 


VAL 


m m 

'^ZM 


sc^nm^cnmu^nwMm^zm^ Ltt. 

VAL«3t^5IJ» 

A=VAL(”&H20”) 


<-X'^'9^\y<DmJ]<DX'^t^+,-, &, VALQimtO iztj:*) ^t. t 

ntt. tztzL, 16 3 t^fB^i?>a'A~F 8^(i*8 iJ J; t/9 

LCffiELT < 


: STR$ 


VARPTR 


^ m 


m ^ 


3t 


^nxI'-5y^IJ#i|fe, 7T'f;KZflJ‘JST^bnTl'-S>7T'f;i/ 
□ > h Sf. 

1) VARPTR«^iS[^> [, <«ltg>]) 

2) VARPTR(# <7T^;i/S-§-> [, <^ig>]) 

PRINT HEX$ (VARPTR (A, 1)) 

PRINT HEX$ (VARPTR (A)) 

SEGM%=VARPTR(# 1, 1) 

ADDR% = VARPTR(# 1) 
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VIEW 


•it 1) t 6T-^ $tiTV^^ %m(D ^^ y # 

mm> \z. 0 tmnr YuTsm^hn. o y 

2/<^ h 

>±s : m^, :^m^n^itL7 kux. :^mf3'±.itLT 


^ ^ §2 : 






sc.^ m.-. 




(x-^{iTIiL. ±fi(7)|ii) 


4/\'^ h 


I I (i. VARPTR(Z<t »nfbn*fi*<^&LTl'-5tip/r 
—' (7Ku;^)^a-r. 









8/\y h 





HI 

■ 1 - 





4/<'f h 


MJ >^' 


3tt?lMlrt7KU';^(7)t7-t2 7 h 

I 




* U p^r—'> 3 >□ — K 

&HOO.VARPTRTl#/c-t2^V > Mc. x-:S^*'' 

AHOOlU^f.■tz^V> h-<-;^&H60(7)-b^V > Hi 

T — ‘9f3'h^. 


ij □'!r-v3>^-K* 


i_ 




#jt2) J=h£L/'c< 7 7"f D St y 7 ^ )^7i y V n—;I/T d y 

<®tb>c 0 1 fc-feT*/ y 

^i§ L-/c^'n , 0 CD t S 

^fjo, 7 r^ D St‘ sijxTVi.giAtB^j''’?7 rCDpfl$p#itiiti, i cd 7 r-i"^ 

y h n-;i/7*n >y 7 0 33 b g *^?)0 2 /nM b K|&S^$tiTC:> t T. 


#,^ : DEF SEG 


VIEW I 


y 7 'J — yM^^±0(Sxl, Syl) =&&±Oli;^, (Sx2, Sy2) $':&TO]l;StT -S 

tTJi^tS A. ic:Tv^a:ty'y'S;v-x7y-yM1it«, r^x 
T’y-i’iSffiOF'y b t 1^1 K^fSET, WINDOW, VIEW Ci y ^IbTS 11 O^V^^S 
t T-f. 

VIEW*>*|ltT$n5 h, WINDOW Ci yit^$ttTV^-S7-;PFffi®?^±OMJ^F3©l2IIF^ 
t±, VIEWT}iStA^«4'(-*^$ti-2><l:7ti:^D S-r. 






3t 0IJ 


X -< X 7 y -f iii®±TOS:^TllS (E' a. —if^— V) ESI". 

VIEW (Sxl, Syl)-(Sx2, Sy2) [. <$IISfe>] C, 

VIEW (100, 30)-(200, 75),, 7 
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VIEW 


^ b"aL —b (View Port) 't. 





T -r KM® 

(tJ- iJ U ->J^^^s) 


(Sxl.Syl) 



j.-/-)?-h 

^ , 


(Sx2,Sy2) 


hS-^-^Ja^t-S t, '<l'y h#^©feTe:i.-d<- 

t. 

<MW‘^'> <iC/<Uv t, /N“l/'y b#-t®fe-Ct^i-;K-^-r. 

VIEW tt, ^-B:^®T, 

VIEW C J; D f’o.-d^- h -I t tcJ:-:)T, h 4'©llff^*^*^itl’f •S) 

J; a O S-fr^. S/c, VIEWai-^T©i/7 7^'y^iii®^®:©^^|gH=&JH^^ 

< t1-. 

VIEW©fg^^^^2. c: tci f),l ^®lllff^^fiEi< 7°Di/7A-Cfe,jl®±©M^c5fiac 

Sxl <Sx2, Syl <Sy2 *5^Dili’Sv^^-n, 5 ^tLii©J®;g*srV XT'n’B®*^^ 

^ tl T1/ ^ li. "Illegal function call" ~ ^ t.T. 

Mi, <:>:(; VIEW^^v^li SCREEN txmtLt 

^^^. tfz, VIEW l,iLP{m^^^WM)i^^^~^-\'(D&±CDmM.l^^^W]l-tt. 

)±M ■ v-)u h window omn'^xh d , view 

©^HfTtTV^ xFVlilUMSm^©^ tTi-iilf, e:2.-df-1-F3©ffi^(i, (7-;^ 

vmm) = u^')->mu)ttj:oti-. 

#B^:CLS, SCREEN, WINDOW, V V7“;W7°n X’yA 20, 21 
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WAIT 


VIEWl^i: bO^®{u«(Sxl, Syl iJ i y'Sx2, Sy2) 

«•, <mi> D. 

<mm> co~3 Ltt. 

0 : h0:fe±oii;^>® Xffili(Sxl) 

1 : h0:fe±0]lj^.0 YM^(Syl) 

2 : e^-d^-h®^fT®Ii;S®XM^(Sx2) 

3 : l'0;&T®JI;^© YJ$®(Sy2) 

a,© : VIEWr^ X7“^'f ilffi±®e:3.-7K- 
Sfiltt, X;? SI", 

#08 : MAP, VIEW, WINDOW, WINDOW(Mi5:) 


WAIT 


m m 

3Sc m 


WAIT <;J^—h#■§■>, <5tl> [, <5t2>] 
WAIT 1, &H22, &HFF 


WAIT (i, iaMLfzXtlTi^— F ® b"'y h — ?> tT'7“ni/7 A0|| 

n^w±Ltt. 

<df-F#'#> l,iAtJt°-h(Dm^T, O~32767(&HO~&H7FFF)0^H[^Tffi®bSt. 
WAIT tt, S-fdf- t<5^2>t©XOR !9, 

IXDAND^tDtt. fc BASIC tt -5-gdf-h 

7°dX*?A©| ltT(i<^0:S;C 

^DST. <5^2> 0 


'AM : WAIT ©MtCJ; D, X°nX’7A©^tT*s^®;u-7“CAoTCS7il-&*s$)D tf-. 

h i-brA. 

#,^ : INP, OUT 
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WHILE~WEND 


WHILE'^WEND 


m m 




% m 


WHILE A'tb WEND J^S^^'f+^^/'S-ScFtlTL'-S) 

m, iiS^JiILTll^7L^■r. 

WHILE <m^^> 

S 

WEND 

WHILE J = <5 

S 

WEND 


WHILE~WEND;u-7°43(WHILE t WEND OPbI) 

mOMbrnni-tt. <i^il5^> wend 

hzm < V tt. 

WHILE t WEND 

WHILE-WEND FOR-NEXT 

a, ^fL^ti©WENDtt^tLL(if®ft^)3fi< WHILE t^fCLtt-. WEND ti 

WHILE D, i> Z thtT^ 

=,±M ■ WHILE—WEND 1 ^ 1 KMlStTV^^yntt'^cf 0 

ifc, WHILE—WEND ;i/—y^F*3^:S1-al5*"?> GOTO if■i'>'7“LTA-^T^D, 

A-S L -5 7°n Aii, 

*< ^T. 


#,^: FOR--TO--STEP-NEXT, -‘Ty^'a^fyl^U 


WIDTH 


m m 




1) WIDTH C, <^T^>I 

2) WIDTH 'J7":J'>, <1fTX> 

3) WIDTH # <-9-'fX> 

WIDTH 80, 25 

WIDTH ”LPT1 : ”, 80 
WIDTH #1, 100 
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WIDTH LPRINT 


*xti) r+x I'iihfz^) 403^^, 803^^0 

<tfTiSC> '^fz. ifiWO (i 20 25 tT)6^© t"t) <tTiSc> 

t tt, ^ o t § ©tm© t % Tmt L ^ ^±^. 

#it2) <7 r ^-'Pr'f X X'J 7°^> X 7 r T ^PC^d'LT, lfT©S$5'jB^ 

Ut-f, c: X7 RS-232C @117 r-4'7“'; 

t. <-0-^X'>©fiaO*^^ 255 ^TfF§tlTV^t-r. 0 256 Jg 

Sb/ifI*nfT©:S:^SSCi:^f t) i1-. fzh^\f, <I©^p^*57°y 77tc:^bT|ltT§n 

-r. ^©J;^ K7°y WIDTH LPRINT t |n|#©^ig^f# 

5 r i: i t. 255 CK;^ $ tLT 1.^ J -r. 

#5^3) <7r'l’^P#'t> C#JDST^nTl^5^'^'7 7r(0PEN#,^)K;>>ftT, 

X'>T*Jt£LS-t, ^^■CjB^T^^T7'f4'X7r4';H3:, RS-232C @1^7 7 
-f ;Pt7’y 77T^. <'y-^X>S0*^P>255 S-CW$tlTVii-r. 0 256 t$ tl 

m'^^tz\mi'<j(DX^mtt£y)tt. rntz-a^y r-iTst 

(DXliitlli^(D (-y-TX') #f4-CtTL)tt^1-. 255 Sf. 

^fc% RS-232C®||7rT;P(^^LT WIDTH 7 7T I. T-7©II^ 

aiB#, x> vm^^titz^moum::bi>z^mcR) = 1 -6 ^ tiztj: V tt. 

;^S:2^^M ^^0^^^l35:^a3^^|St2:S;^(/^M h)tLX^^tt. ^fz, 02p:^3^^^J© 

n^n^^mT 2 ^ - f (ki/ko) a ^nttoTzti 

#BS : WIDTH LPRINT, 7 7“;P A n 7' 7 A 33 


WIDTH LPRINT | 


7°y 77CE|3^-r5iiF^©, I'nhfz'CKD^^m^m.'^L^t. <35:^i5:> 255 ^ 

•e©fl«-f|^-r# tt-. 0*^^256 ^'^Ltzmn'ff<D-X'^WLhtj:^tr. 

)±M.'.2^<-i b^02^fgi35:^ti35:^l!;t2 35:^(/NM v)tL,xWi^^-r. ttz, B^m:Si:^m0 

mt'^izht 2 :X^^(DM'0 3 - F (KI/KO) A ^tltt<DXbtl 


m m 


xt 


WIDTH LPRINT <3t^i!c> 
WIDTH LPRINT 80 
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WINDOW 


: WIDTH 


WINDOW 


m m 

•^ 


WINDOW (Wxl, Wyl)-(Wx2, Wy2) 
WINDOW (-300,-50)-(100, 70) 


7-;^FffiSl^±©(Wxl, Wyl) **±011^5, (Wx2, Wy2) 

T. 

Z.(DX^ C > F >7 'y A > V t i ?>CjS*' 

tt. 'y A t, 

Dt-ri)^6, mi^^yy A "Ayy^^^Tmt^rumwA^Th, h^^-if.-yy^Tiiim^j:yrzy:^ 

Z t C’df V tt. 





7- -f A. yu A ®ffi 
(t 'J yyji'A.y u ->^liS) 



WINDOW h, VIEW tUD J: -5 

i-B:^®T, WINDOWCir^-f?^ F 

tii^D S-&^. ^ y F 

■7 1 LTiS^f S fc, f ^ X7°y^iiiffi±©t':i-xK- F t V tt 

0 T, ?±*L-T</’$VN 

Wxl < Wx2, Wy 1 < Wy2 OiLtz^j: 0 *5 7 -K 15 

"Illegal function call" Jzy t Ke V tt. WINDOW Tjg^-rsH® 
(i, 7-;wFffi®TT*^^, t6Z tii-C^tt. 

$ tL/c 7 ^ y F 7 li, WINDOW * S (i SCREEN ^ T^t L 

^ -& ^. tfz WINDOW tt LP (mm^mj^) ^ 7 ^ y F 7 0:fe±0li^S i::#l!) 11 T. 


;±E : 7 —F F3Kg|fl$ti-2)0ti WINDOW coMfr^Ti) 0, VIEW 

0^lltTtT7^ y F71i®]SI4^S0^ FF30ffi®«, (7-;^ 
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WRITE 


= (Xy - 

: VIEW 



WINDOW CJ: V FV®fiiM(Wxl, WylfcJ;t;Wx2, Wy2) 

<mm> 

<mm> co~3 (DmmHaMLtt. 

0 : >FVO&±OJIj^OXM^(Wx1) 

1 : XFV0:&±©H^^O Yffi^(Wyl) 

2 : X F V©:feT®]l;S0 Xffi^(Wx2) 

3 : X ^ X F X (D^r<DlMj^(D X (Wy2) 

'/±M : WINDOW 7~;uh^mm^<DiAt^j:r) tt. 

: MAP, VIEW, VIEW(M85[), WINDOW 



4 3D>( : )IC3; y K^y S1-, PRINT 3 >vE-fe 5 

3D>t©^|g±®gSijai5y t-frA. 

WRITER, I3I?, PRINT 

^ti05^0ll0rB^ttiE'-f 3 y-7-cEWy S T. tfz, ;j--r-'> 3 X ” )T 

HATtliyy b tT. 
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WRITE# 


WRITES, 3(tT§tTV^iT. 

#,^: PRINT, WRITE #, 



FT':t —7°> L/c 77'-) — 7'7 7 '()^, 7°'-) 7 

7^If)^, RS-232C[H]|t7r'^;H':, <^> Si D t"®T-7 

ttl b ^ 

<7 tT-'W#-§->SS, OPENSioT, ^•077T-'P'&:t-7“7b*E#S'ffio;^c#-§-'feJg 
SEiT. 

<5^>'&IS»B^t-S**-^S, 3 7v(,)S>|,v^S-te4 3ny(:)SJ;i9E^DiT. PRINT 
#i;Itv\ 3 7v t-fe i 3 D y t ®^ig±©KS!lS$) D i^^^. 

WRITE#S, SS, PRINT#t|^Ui'5SS(D{I^t±i;)7tiT*E ^ 

ti^tio^^©{I®raSiE'-f 3 yT-cK^i? i-r(3 y'7^©feo^T-7 t tTai;)3EiT). 
i*, :5:WJS7*77U7 >j--r-'y 3 y(” )TH^’CtiI;)JEi•r. 

WRITE#S, ^^(DiU^liitjLtz(Dh, SttT3 - K (CHR$(13)) HIE iT. 
WRITE#S, EWDia-^-h ET3 y v§/i'^-ftti^lE, 

PRINT#Sj:t^7 r-fE it. 

hE: tii;)3^^7r^;i^*E’scRN : ” ©*1-^, S:2^igr-7'&tii*tl. e tST# 

#,^ : PRINT #, WRITE 
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M4S 































z 

zcomi^ii, Nss- BASIC (86) ® • MSS: =& L /i il- > ^7° o 7 A ^ T 

^tirtl07°a^^yAH, tS5CM)i®*5^^*MS!rS’iKoTlijSbTi. D 11-. tfc, 

-f > h V tt. 

#7°D7'7A®#f-tt, 7 r l^VXj "#3S" as^c^ 

$ ifL/cf-7 7 °;i-7°d T’^ A#-f-^ 1-. 
li^TC, 77°;l/7“n7'7A®#-t-S®i:, #:/d 7^7Acf^-cj^^ 


1. :/Pi/7A®]lijg (Je®i) 

CHAIN, COMMON, OPEN, FIELD, 
PUT 

2. :/P7^7A®jii|S (•=e®2) 

CHAIN, COMMON, FIELD, GET 

3 . DATA 

READ, DATA, RESTORE 

4. mm(7)Mmw 

DEFINT, DEFSNG, DEFDBL 

5 . OPTION BASE 

DIM, OPTION BASE, ERASE 

6. FOR~NEXT ;U-T^ 
FOR-TO-STEP~NEXT, SIN, COS, 
PSET 

7. ■ity‘Jl'-^>(Dl^V^liiLtiJ:^^-> 
GOSUB, RETURN 


8 . 

IF-THEN~ELSE, ABS, SQR 

9. 5tOfiUcfc5:53-ll^ 

ON-GOTO, SGN 

10 . mm<nm<7)xnm^ 

SWAP, LOCATE, POS, CSRLIN 

11. WH1LE~WEND 7U-r 
WHILE~WEND 

12. PRINT t WRITE 
PRINT, WRITE 

13 . r-:$'(DmmHiti 
PRINT USING 

14. R®JS® 

CIRCLE, READ, DATA 

15. /N°U'vh- (Sfett’-Sfe^-K) 
[DCOLOR, LINE, [2]COLOR 
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114$ 


16. /’vU'vh (4096 fe'f *16 fe-t—K) 
[l]COLOR, LINE, [2JCOLOR 

17. DRAW 

POINT, DRAW, PSET, PRESET, 

LINE, PAINT 

GET®, PUT®, LINE, CIRCLE 

19. 

PUT®, ROLL 

20 . 

SCREEN, WINDOW, VIEW, LINE 

21 . 

SCREEN, WINDOW, VIEW, CIRCLE 

22. X7-l5!!:Ii7U-^> 

ON ERROR GOTO, ERROR, ERR, 
RESUME 

23. + 

ASC, MID$, CHR$ 

24. leii^j^ 

OCT$, HEX$, STR$ 

25. 5:^5iJcOiS#t±JU 

LEFT$, RIGHT$, MID$, LEN, SPACE$ 

26. 

MKI$, MKS$, MKD$, OPEN, CLOSE, 
FIELD, LSET, PUT 

27 . 

CVI, CVS, CVD, OPEN, CLOSE, 

FIELD, GET 


28. V—'(r>''>-\'7U7TT7U 

OPEN, CLOSE, PRINT #, INPUT #, 
EOF 

29. 7>yA7rT71/ 

OPEN, FIELD, CLOSE, LOF, GET, 
LSET, PUT, INPUT$, INKEY$ 

30. +-SlJ‘UiA*-7l/— 

ON KEY GOSUB, KEY(n) ON, 
RETURN, SIN, COS 

31. 

TIME$, TIMES ON, 

ON TIMES GOSUB, RETURN, BEEP 

32. 

RANDOMIZE, RND 

33. x4rA 

CONSOLE, WIDTH, LOCATE, 
COLOR®, GOSUB, RETURN 

34 . 

KPLOAD, KNJS 

u 

AKCNVS, KACNVS, KMIDS 
36. 2/\'T K<7) 

JISS, KNJS, KMIDS 

KEXTS 
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38. 2/H 

KLEN, KTYPE 

39 . 

DEE FN 
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^4¥ ^y-f)vfu^=7U 


1 . 


100 
I 10 
1 20 
1 30 
1 40 
1 50 
1 60 
1 70 
1 80 
1 90 
200 
210 
220 
230 
240 
250 
260 
270 
280 


DIM IDENT(200) 

COMMON IDENTO .COUNT- 

OPEN "DATA" AS #1- 

FIELD #1.4 AS l$.20 AS N$.50 AS A$- 
I NPUT " ^ M # (1 -999) " ; I 

IF 1=0 THEN GOTO *PRINTOUT 
IF l=>1000 THEN STOP 
INPUT "Be ^ " ;NAME1$ 

INPUT "-(i0r";ADR$ 

LSET l$=MKS$(l)- 

LSET N$=NAME1$ 

LSET A$=ADR$ - 

PUT #1 , I- 

COUNT=COUNT+l 

IDENT(COUNT)=l - 

PR I NT:GOTO 140 
*PRINTOUT 
CHAIN "CHAIN.S02" 

END 


'^DATA'^ :7 T < )l^^ 7 > K — y >. 


(u=j- K#-§-) 


'"CHAIN. S02* 

’"DATA^ y — 


2. 7'P^7AC7)JI^(-!e(7)2) 


100 COMMON INDENTO .COUNT-51 # >J$? 

110 PRINT:PRINT 

120 FIELD #1.4 AS l$.20 AS N$.50 AS A$- '"DATA^ T'-T )KiOPEN^l^(7) i ^ CHAIN 

130 IF COUNT=0 THEN PRINT "END":END (ZOPEN L 4'< T J: L'. 

140 GET #1 . IDENT(COUNT) -^ tlT L'^ U =I - K (7)<5^f 

150 PRINT ^ ;CVS( 1$) 

160 PRINT "Be^ :";N$ 

170 PRINT :";A$ 

180 COUNT=COUNT-l 
190 PR I NT:GOTO 130 


3. DATA 


100 READ A.B.C 

1 10 RESTORE - ^^J]<DDfi^JA'i=T (I90^t) ;!7'ibttJTct 0 

120 READ D.E.F 

130 RESTORE )KSTRDATA- *STRDATA^t (2I0^t) T>(.^<7)DATA^T(220^T)*'biTC<J^^tB‘tci: 9 

140 READ A$.B$.C$ 

150 PRINT A.B.C 
160 PRINT D.E.F 
170 PRINT A$.B$.C$ 

180 END 

190 DATA 1.2.3 

200 DATA 4.5.6- “ CT)^ □ v AT'C#. C C7)DATA^Tlii^<J^ fcB ^ L\ 

210 *STRDATA 
220 DATA AA.BB.CC 


4. 


100 DEFINT J-M - 

110 DEFSNG A.B -A. BT'i^ ^ L T 

120 DEFDBL D- Dx^ Lx-^m. 

130 J1 = l .23:K = 65.643 -ji, K 

140 ABC=1.23:BBB=65.634 
150 D=3.141592654000003# 

160 D% = 3.1 41 592654000003#-D%(#, (%) ^ tiT L'^ 7c46, 

170 PRINT " J 1 =" ; J 1 . . "K = " ; K l20^T<7)^Wtz7}'6't^ E? L 

180 PRINT "ABC=";ABC.."BBB=";BBB 
190 PRINT "D=";D."D%=";D% 

200 END 
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5 . OPTION BASE 


100 OPTION BASE 1-I ^-r-S. 

110 DIM KEISAN(9/9)- ^^^9 x gcoz^j^^^lC^U^^KEISANO 

120 FOR 1=1 TO 9:FOR J=1 TO 9 
130 KEISANCI .J) = l>|cJ 
140 NEXT J/I 

150 FOR 1=1 TO 9:F0R J=1 TO 9 

160 PRINT USING " ; KE I SAN ( J , I) ; 

170 NEXT J: PR I NT 

180 NEXT I 

190 PR I NT:PR I NT 

200 ERASE KEISAN -KEISAN 

210 DIM KEISAN(9.9)-KEISAN () 7c (Z IE W. 

220 FOR 1=1 TO 9:F0R J=1 TO 9 
230 KEISANCI.J)=l+J 
240 NEXT J,I 

250 FOR 1=1 TO 9:FOR J=1 TO 9 

260 PRINT USING "####";KEI SAN(J,I) ; 

270 NEXT J:PRINT 
280 NEXT I 
290 END 


6. FOR--NEXT;U-y 


100 
110 
1 20 
1 30 
1 40 
1 50 
1 60 
1 70 
1 80 
1 90 
200 
210 
220 


SCREEN 0 :CLS 3 

FOR P=1 TO 7:C=0- 

FOR R=10 TO 200 STEP 20- 

FOR 1=0 TO 3.14 STEP .05—i 
Y = SIN( I)*COS(I) 

X = SIN( I )>KSIN( I ) 

Y=Y*R+100 
X = X>KR)lc2.5+100-C 
PSET (X,Y),P 

NEXT I- 

C=C+10- 

NEXT R/P- 

END 


— 'y h T^. 






7. U 


I 00 *START 

I 10 INPUT :”;TEIHEN 

1 20 I NPUT " if $ : " ;TAKASA 

130 GOSUB >KMENSEKI 

140 PRINT ";MENSEKI 

150 PRINT 

160 GOTO *START 

1 70 >KMENSEK I- — 

180 MENSEKI=TEIhEN)KTAKASA/2 

1 90 RETURN-—5^>c7)]g^(iRETURNT'^:b^. 


8 . 


100 INPUT A 
1 10 FLG=0 

120 IF A<0 THEN A = ABS(A) :FLG=1 - 

130 PRINT SQR(A);- 

140 IF FLG THEN PRINT "i" ELSE PRINT 
150 END 


Xtl S <0 C^FLGIZ I 

&IZU, 
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9. 


100 GENTRY 
1 10 INPUT "N=";N 

120 SG = SGN(N) + 1-A*<ill;S4-r5>SGNM8!!<7){l-l. 0,+l?r, 0, I. 

130 ON SG GOTO *ZEROx*PLUS^-0, *MINUS, 

140 *MINUS:PRINT " M 1 NUS ! " : GOTO GENTRY *ZERO. *PLUStC^vit. 

150 )icZERO:PRINT '* ZERO !": GOTO GENTRY 
160 *PLUS:PRINT " PLUS !'*: GOTO GENTRY 


10 . 


100 DIM A(10)/B(10) 

1 10 CLS 

120 FOR 1=1 TO 10 

130 A(l) = l)K2:B(l) = l*3:GOSUB >KPR I NTAB 
140 NEXT I:LOCATE 0/Y+3 
150 FOR 1=1 TO 10 

160 SWAP A( I ) /B( I ) :GOSUB *PR I NTAB-A() 

170 NEXT I:LOCATE 0,Y+2 
180 END 

1 90 >fcPR I NTAB-A() ^ B() ^ —^ 

200 X=POS(0):Y=CSRLIN 

210 LOCATE X,Y:PRINT USING "###";A(I); 

220 LOCATE X,Y+1:PRINT USING "###";B(I); 

230 LOCATE X+5.Y 
240 RETURN 


11. WHILE-WEND;U-y 


100 1=1 



12. PRINT t WRITE 


100 
110 
120 
1 30 
140 
1 50 
160 


A%=123 

B!=9.87654E+31 
C#=3.14159265359# 

D$="N88-BASIC" 

WRITE A% i B ! ' C« i D$ ^- PRINTi; WRITETIJ 

END 
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13 . r-^(Dmmtiiti 


100 

PRINT 

USING 

110 

PRINT 

US 1 NG 

120 

PR 1 NT 

USING 

1 30 

PRINT 

USING 

1 40 

PRINT 

US 1 NG 

150 

PRINT 

US 1 NG 

1 60 

PRINT 

US 1 NG 

1 70 

PRINT 

US 1 NG 

1 80 

PRINT 

US 1 NG 

1 90 

PRINT 

US 1 NG 

200 

PRINT 

US 1 NG 

210 

PRINT 

US 1 NG 

220 

PRINT 

US 1 NG 

230 

PRINT 

USING 

240 

END 



"!";'’NEC COMPUTER"- 

"& &";"NEC COMPUTER" 

"#####";123.456 
"#####.#";123.456 
■•+####.#"; 123.456 

:-]23.Ab6 
123.456 
123.456 
'•)K*¥##.#"; 123.456 
"#####. .#";1234.56 
"#####, : 1234.56 

"¥¥##*f . _-"; 123.456 
"#####";123456! 

"NEC @ COMPUTER";"PERSONAL 




14. ROjfi® 


100 SCREEN 0,0:CLS 3 
110 FOR R=1 TO 100 STEP 5 

120 CIRCLE(150,100) ,R, (R MOD 7) + l/,/R/100- 

130 NEXT R . 

140 ST=.00001 

150 DATA 25,5/40,13/17 

160 FOR 1=1 TO 5 

1 70 READ DAT ;EN = ST + DAT/100*3 . 14*2-DATA^t(I50^t)(7)W'$T^^'— 

180 CIRCLE(450,100) , 100, I ,-ST,-EN-/n’L x .y L 

190 ST = EN 
200 NEXT I 


15. mV'V h(8fefti-8fe^“K) 


100 COLOR ,,,,0:CLS 3-8fe4>-8m"E— K. 

110 FOR 1=1 TO 7 

1 20 COLOR= ( I ,7)- -r-^T(7)/\"lx‘y h 

130 NEXT I 

140 FOR 1=1 TO 7 

150 L1NE(0, I *20)-STEP (639,10) , I ,BF-/\“l^'y I't < . 

160 NEXT I 
170 FOR 1=1 TO 7 
180 FOR J=1 TO 7 

1 90 COLOR= ( J, I )-‘y h \'^7(Dti ^ — z\— K L T L' < . 

200 GOSUB *WAITSUB 
210 NEXT J 
220 NEXT 1 

230 COLOR- ±y<U'y ^ 

240 END 

250 *wAiTsuB- 

260 FOR K=0 TO 100 
270 NEXT K 
280 RETURN 
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16. h(4096fe4>*16fe^-K) 


100 SCREEN 3,0:COLOR /,/,2:CLS 3 - y 4096^4’-16fe^— K. 

1 10 FOR 1 = 1 TO 15 

1 20 COLOR= ( I /&HFFF)- T^X(D^<i^y h 

130 NEXT I 

140 FOR 1=1 TO 15 

150 LINE(0/ 1*20)-STEP (639/ 10) / I ,BF- y<Uy ^ iz It 1< . 

160 NEXT I 

170 FOR 1=1 TO 15 

180 FOR J=1 TO 15 

1 90 COLOR= ( J / 1 6*^2)-F #-§-c7);^(Z, t)y — zi- K L T I' < . 

200 GOSUB *WAITSUB 
210 NEXT J 
220 NEXT I 

230 COLOR- '^y'^Uy h 

240 END 

250 *WAITSUB- 

260 FOR K=0 TO 100 
270 NEXT K 
280 RETURN 


17. DRAW 


100 
110 
120 
1 30 
1 40 
150 
160 
1 70 
180 
1 90 
200 
210 


SCREEN 0/0/0/1:CLS 3 

POINT(320/100)- 

A$=''C4U60R60D60L60'' 

DRAW A$ 

DRAW "BE45A2S0.5X=A$;" 

DRAW *'A0BE10P’'- 

PSET (440/40)- 

LINE -STEP(60/60)/7/BF 
PRESET (455/55) 

LINE -STEP(30/30)/0/B 

PAINT (456/56)/0- 

END 


•DRAWT[2]?F^^^I|< . 


-LINE, PAINTT'f^ < . 


18. 


100 
110 
120 
1 30 
140 
150 
160 
1 70 
180 
190 
200 


SCREEN 0/0:CLS 3 : COLOR ////I 

XD = 40:YD = 20- 

BYTE= ( (XD-^7)¥8)*YD*3-^4 
FACT = BYTE¥2-H 

DIM 6%(FACT)- 


LINE(0/0)-STEP(XD-1 /YD-1) / 1 / B 
CIRCLE(XD/2-1/YD/2-1)/YD/2/2 


KT'40X20 K *y F (7)/\' 


6ET(0/0)-STEP(XD-1 /YD-1 ) /6%- mm^G%0 

FOR X=0 TO 500 STEP 100 

PUT (X/ 100) /G%-i^«7AiA^/zE])f^^6/?'m^CPUT. 

NEXT 


19. 7-f'V □—;u 


100 SCREEN 1/0:CLS 3 

110 FOR l=&H3000 TO &H4F00 STEP &H100 
120 FOR J=&H21 TO &H7E 
130 KCODE=l+J 

140 PUT(X/168) /KANJI (KCODE) /PSET-=l- 

150 X=X+20 

160 IF X>623 THEN X = 0:ROLL 18-18 K‘V F:x □-;U7^ 7” 

170 NEXT J 
180 NEXT I 
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if A 


20. 


100 
110 
1 20 
1 30 
1 40 
1 50 
1 60 
1 70 
1 80 
1 90 
200 
210 
220 
230 


SCREEN 0 . 0 :CLS 3 

WINDOW( 0 , 0 )-( 639 , 199 )- 

C= 6 : 60 SUB *RECT- 

VIEWd ,l)-( 638 , 99 ) , 0,7 
C = 5 :GOSUB >KRECT 
V IEW( 214 , 1 )-( 428 , 198 ) ,0 , 

C = 4 : 60 SUB >kRECT'- 

VIEW( 0 , 0 )-( 639 , 199 ):CLS 
END 

>KRECT- 




^ iL-7fs-v 


LINE( 50 , 50 )-( 600 , 
LOCATE 0 , 0 :PRINT 
A$= INPUTSd ) 
RETURN 


150 ),C,BF 
" ^ ^ |t}l 


t r < f:f $ ' 


21 . 0^yV0(Dmt. 


100 
110 
1 20 
1 30 
140 
1 50 
1 60 
1 70 
1 80 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 


t: j.—/Tt— h C7)ix:^. 


SCREEN 0,0:CLS 3 
C=1 

VIEW(200,50)-(400,150),,7 — 

WINDOW(- 100,- 100)-(100,100)- 
60SUB *CIRC 

WINDOW(-100,-100)-(0,0) 

GOSUB >KCIRC 
WINDOW(0,0)-(100,100) 

GOSUB *CIRC 

WINDOW(-500,-500)-(500,500) 

GOSUB *CIRC- 

VIEW(0,0)-(639,199) :CLS 3- 

END 

*CIRC- 

CIRCLE(0,0),100,C 

LOCATE 0,0 : PR I NT " tl ^ ^ t T < ; 

A$=INPUTS (1) 

C=C+1:CLS 2 
RETURN 


— \dD. — 7fs— h izMT. 




22 . 


1 00 PR I NT " X 0 Y ^ ^ ^ ^ ^ " 

110 ON ERROR GOTO >KERRORMES- -y 

120 >KSTART 

130 INPUT ''X:";X: INPUT"Y:";Y 

140 IF X =0 THEN ERROR 250 —- 

150 Z = X''Y:PRINT X; " 0 ; Y ; " ^ ; Z ; " T? f " 

160 >KRETRY 

1 70 I NPUT '• t) O ^ Jg ^ t (Y/N) " ; A$ : PR I NT 
180 IF A$=''Y’' OR A$='*y'’ THEN >KSTART 

190 ON ERROR GOTO 0 - ^L T ib'< . 

200 END 

210 *ERRORMES - —>. 

220 IF ERR = 250 THEN PRINT " ^ ^ ^ if ^ " - in 5 —#-§-2500 ^ 

230 I F ERR = 6 THEN PRINT " :t - - 7 a - T? 'T "- -y<—y a—CD t ^ (D^m. 

240 RESUME *RETRY- x ^ ^ ib 0 >^ U C Ci 

RESUME^^^ b. 
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23. 


100 LINE I NPUT " ^ 1!^ ? ^ o r < $ V^ " ; A$ 

110 IF A$="'' THEN 190 
120 6 $="" 

130 FOR 1=1 TO LEN(A$) 

140 D$=MID$(A$,1/1):D=ASC(D$) 

150 IF D> = 97 AND D<=122 THEN D$ = CHR$ (D-32) - 

160 B$=B$+D$ 

170 NEXT I 

180 PR I NT:PR I NT B$ 

190 END 


24. 


100 FOR 1=0 TO 16 


1 10 
1 20 
1 30 
140 
1 50 
1 60 
1 70 


DE$=RI6HT$( 
0C$=RI6HT$( 
HE$=RIGHT$( 
PRINT 
PRINT 
PRINT 
NEXT I 


’'+STR$( I ) ,3)- 
*'+OCT$( I ) /3) 
"+HEX$(I)/3) 


10ji : ' 

" ;DE$ 

8ji :■ 

" ;OC$ 

16ji : ' 

'• ;HE$ 


1_0~I6C7)^^^, lOit^IB. 


smmm. 


25. 3t^5iJ(7)iS#aiL 


100 
110 
1 20 
1 30 
1 40 
1 50 
1 60 
1 70 
1 80 
1 90 
200 
210 


I NPUT" ^ fj ^ X < 

PRINT 

PRINT ^ 2 'O iZ L t f-" 

AL$=LEFT$(A$,LEN(A$)¥2)- 

AR$ = RI6HT$(A$/LEN(A$) -LEN(A$)¥2) — 
PRINT AL$;SPACE$(3);AR$ 

PRINT 

PRINT " 2 -:> IZ t t" 

FOR 1 = 1 TO LEN(A$) STEP 2- 

PRINT MID$(A$/I/2);SPACE$(3); 

NEXT- 

END 


" /A$ 


]-A$ 




26. 


100 
1 10 
1 20 
1 30 
140 
150 
1 60 
1 70 
1 80 
1 90 


OPEN "RDATA" AS #1- 

FIELD tt1/2 AS A$/4 AS B$/8 AS C$- 

A%=987:A!=123.456:A#=1234567891234# 

LSET A$ = MKI$(A%)-- 

LSET B$=MKS$(A!) 

LSET C$ = MKD$(A#)-- 

PUT #1 - 

PRINT " Z. O ^ y X M {t" 

PRINT 7 

CLOSE:END 


y>yix=E—VX '"RDATA^ —y>. 

h, v, mn 

7 'y h. 


27. 


100 OPEN "RDATA" AS #1- 

110 FIELD #1/2 AS A$/4 AS B$/8 AS C$- 

120 PRINT 

130 PRINT " Ijc ^ fcB t t " 

140 GET #1- 

150 A%=CVI(A$)- 

160 A!=CVS(B$) - 

170 A#=CVD(C$)- 

180 PRINT A%:PRINT A!:PRINT A# 

190 CLOSE:END 


KT '"RDATA^ — 


F. 
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28. 


100 
1 10 
120 
1 30 
140 
1 50 
1 60 
1 70 
1 80 
1 90 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 


F$=''DATA . D''+R I GHT$ (DATES, 2) 

OPEN F$ FOR OUTPUT AS #1- 

PRINT #1/DATES; ".'-.-TIMES_ 

PRINT 

PR I NT : PR I NT " ^ — — it 

PRINT: INPUT " p°d ^ " ; NAS 

IF NAS="" THEN CLOSE:GOTO * INDATA- 

INPUT " ;PRC 

INPUT "^1^";N% 

PRINT #1/NAS;",";PRC;",";N%_ 

GOTO 140 

)|clNDATA 

TOTAL=0 

OPEN F$ FOR INPUT AS #1- 

INPUT itl/DAS/TIS- 

PR I NT: PR I NT " 0 : ";DAS/"B#^J 

PRINT 

IF EOF(l) THEN *TOTALPRN 

INPUT #1/NAS/PRC/N%- 

SUM = PRC>kN%- 

PR I NT NAS;TAB(10);PRC;;N%;" = ";SUM - 

TOTAL = TOTAL+SUM- 

GOTO 270 
*TOTALPRN 

PRINT:PRINT "TOTAL=";TOTAL - 

PR I NT: PR I NT " ^ B O t - 9 ^ ";FS;" b 
CLOSE : END-_ 


'^DATA . Dxx"' (xx(S 0#) — 

T t t 'T " 

- y T-f Ji^cr>9 n — x. 




TIS 


PR-^, 1I1]^C7)-§--7 ''—9 

P°P^, 

^I+. 


- 'a itC7)^7]v. 

■ - y o — x, mT. 


29. 


100 
1 10 
1 20 
1 30 
1 40 
1 50 
1 60 
1 70 
1 80 
1 90 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 


CLS:PRINT"{£0ri^ (D 7 
PRINT:LINE INPUT FS 
IF FS="" THEN 100 
OPEN FS AS #1- 


r -f ^ ? 


FIELD 

)KMENU 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


ie'^y J\y^(Dy T'-f >yA^ — KT:t —y>. 

#1/30 AS NAMS/20 AS TELS/50 AS ADRS-F), TEL(20/N'i' 

h)(Dmmy 'T- 

ji' 


PRINT 


^ ->>" :PRINT 

" if L < : 2" 

"I# ‘9:0" 

PRINT 

PRINT QS 

GOTO *EXIT/*INNAME/)tcNEWENTRY 


QS=INPUTS(1) 

ON VAL(QS)+1 
GOTO m£m 

)KINNAME- 

IF LOF(1)<>0 THEN 330^- 

PR I NT : PR I NT FS+ " It T - 9 ^ ^ t /o ' 

PR I NT: PR I NT" if t (Y/N) "; 

QS=INKEYS:IF QS="" THEN GOTO 290 
IF QS="N" OR QS="n" THEN GOTO *MENU 
IF QS="Y" OR QS="y" THEN GOTO *NEWENTRY 

GOTO 290- 

NH=1 

PR I NT : PR I NT " M ? " : PR I NT : I NPUT " ^8 fl : " ; HNAMS ■ 

IF HNAMS="" THEN )KMENU 

HL=LEN(HNAMS) 

IF NH>LOF(l) THEN PR I NT : PR I NT" ^ 0 ^8 ml 
GET #1/NH 

IF HNAMS<>LEFTS(NAMS/HL) THEN NH=NH-H:GOTO 370^ 

PR I NT: PR I NT" ^8 M : " ; NAMS- 

PR I NT" T E L :";TELS - 

PRINT-'-fi^f :";ADRS- 

PR I NT : PR I NT" ^ IE L t 't ? (Y/N) " ;- 

QS=INKEY$:IF QS="" THEN GOTO 440 
IF QS="N" OR QS="n" THEN PRINT "N":GOTO :^MENU 
IF QS="Y" OR QS="y" THEN PRINT "Y":GOTO )KCHANGE 
GOTO 440-- 




7 T-C Jl^iZ 




ft X ^ Aj " :GOTO )|CMENU 




y T I 1^=1— 
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480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 


>KCHANGE--- 

PR I NT: PR I NT" U ^ - 'y ^ - ft 
DNAM$=" " : DTELS^' " : DADR$=" " — 
PR I NT : I NPUT" ^ B'J " ; DNAMS 






IF DNAMSo'" 

I NPUT" TEL 
IF DTELSo"’ 

I NPUT" {i Efr" ; 

IF DADRSo"' 
PUT »1/NH:60T0 

^NEWENTRY- 

PR I NT:PR I NT "I 


THEN LSET 
";DTEL$ 
THEN LSET 
DADRS 
THEN LSET 
*MENU— 


NAM$=DNAM$ 

TEL$=DTEL$ 


ADR$=DADR$ 


- -r —y h. 


t < 


L ± 't 


NH = LOF(1) + 1- 

PRINT: INPUT"^ fl : " ;NNAMS- 
IF NNAM$="" THEN )KMENU 
I NPUT" T E L :";NTEL$ 
INPUT"{L0f :";NADR$ 

LSET NAM$=NNAM$ 

LSET TEL$=NTEL$ 

LSET ADR$=NADR$ - 

PUT #1,NH:60T0 >KMENU- 

>KEXIT- 


- tut. 

- y 7 ^ ¥(D'-X(r>yy\— K 


PRINT:PRINT" 
CLOSE:END- 


T' 


^^y ^-)\y h. 


■ y T ^ o — y:, 


30. 


100 CLS 

110 ON KEY GOSUB >KS I NSUB , >KC0SSUB , *ENDSUB-f*l, f*2, tlfz ^ ^ 

120 FOR 1=1 TO 3 

130 KEY(I) ON -f*l, f-2, 

140 NEXT I 

150 DEG=0:PI=3.1416:FLAG=1 

1 60 PR I NT " f • 1 t iZ It f-2 ^ t r < ( f ■ 3 T? H 7 ) . " 

170 >|cSTART 

180 TH=DE6/180*PI 

190 LOCATE 0,10 

200 ON FLAG GOTO *S I NC , )t:COSC \omZ't(D 

210 >KSINC:PRINT " TH= " ; DEG ; TAB (1 2) ; " S I N (TH) = " ; S I N (TH) ; : GOTO >KEX I T — 

220 *COSC:PRINT " TH= " ; DEG ; TAB (35) ; " COS (TH) = " ; COS (TH) ; : GOTO )KEX I T — lO^d'^ (7) 
230 >KEXIT:DEG = DEG+10 

240 FOR 1=0 TO 1000: NEXT--f v-. 

250 LOCATE 0,10:PRINT STRING$(70," "); 

260 GOTO *START 

270 :+cSINSUB:FLAG=l : RETURN -f-1?:?'^?^ n/c «bFLAG= UCT-5). 

280 >KCOSSUB :FLAG = 2 : RETURN -f-2;!?'^f ^ tl/c «bFLAG = 2(ZT ^ 

290 >KENDSUB:KEY OFF:END-f ^ tl/c b 


31. SOU 


100 
110 
1 20 
1 30 
140 
1 50 
1 60 
1 70 
1 80 
1 90 
200 
210 
220 
230 
240 
250 


CLS:CONSOLE ,,,1:FLG=0 
PRINT " @ ^ ^ L 0^ It " 

LOCATE 0,10: PR I NT ’’M ^ (0 0^ M it ";TIME$ 
LOCATE 0,2 : I NPUT " ^ "J F B# (HH:MM:SS) 

ON TIME$ = ST$ GOSUB 200 - 

TIMES ON --- 

LOCATE 13,10:PRINT TIMES;- 

IF FLG=0 THEN 160 

CLS : LOCATE 30,1 0 : PR I NT " (i ct 9 ! ! ! " 

END 

PRINT 

COLOR 7:BEEP 1 

PR I NT " t> 9 t S r- <i: ! ! ! " ; 

IF INKEYS="" THEN 220- 

BEEP 0:FLG=1- 

RETURN 


' ;STS 
■izy h 

-tzy h ^ T'(i 
160^t--1 UiSLU^^n^. 
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32. gL^(7)#^ 


100 RANDOMIZE 
110 DIM SUM(6) 

120 FOR 1=1 TO 100 
130 DA= INT(RND>K6+1 ) 

140 SUM(DA)=SUM(DA)+1 

150 NEXT I 

160 FOR 1=1 TO 6 

170 PRINT I ; ;SUM( I ) ; ’’% 

180 NEXT I 


33. 


100 WIDTH 80/25:CLS 

110 CONSOLE 0.25,0,0- K. 

120 LOCATE 0,0 

130 PRINT " H ^ - K";PRINT 
140 GOSUB *PRINTCHR 
150 GOSUB >kKEYSUB 

160 CONSOLE 0,25,0,1- 

170 LOCATE 0,0 

180 PRINT 7 - ^ - K " : PR I NT 

190 GOSUB *PR1NTCHR 

200 END 

210 >KPRINTCHR 

220 FOR 1=0 TO 31 

230 PRINT "-COMPUTER-"; 

240 NEXT I 

250 GOSUB >KKEYSUB 

260 FOR I=0 TO 7 

270 COLOR© ( I)k10,2)-(I)K10 + 9,5),I -'> a > a - 

280 NEXT I 
290 RETURN 

300 >lcKEYSUB-- — 

310 LOCATE 0,10 

320 PRINT " ^ t r < ; 

330 A$=INPUT$(1) 

340 RETURN 


34 . 


100 DIM CHRPTN%(17)- 

110 CHRPTN%(0)=16:CHRPTN%(1)=16 

120 FOR 1=2 TO 1 7 :CHRPTN%( I ) =2M I-2)-1 :NEXT I -^ ^. 

130 KPLOAD &H762A,CHRPTN% -^A 

140 FOR I=0 TO 4 

150 PRINT KNJ$("1B4B")+KNJ$("762A")+KNJ$("1B48");- 

160 NEXT 


35. 2/H 


100 A0$="TDA^i ^ABC’ 
110 PRINT A0$ 

120 K0$=AKCNV$(A0$)- 
130 PRINT K0$ 

140 K1$=KMID$(K0$,1. 
150 PRINT Kl$ 

160 A1$=KACNV$(K1$)- 
170 PRINT A1$ 


4)+KMID$(K0$,7,4) 
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36. 2 / W h ^ 0 ^ }W =3 ■“ K c7)^0S^j^ 


100 
110 
1 20 
1 30 


37. ^•^^^Zf(D:Z^n(Dm^iiiL 


100 A$=’WDAM ? ABC" 

110 PRINT A$ 

120 KI$=CHR$(&H1B)+CHR$(&H4B):KO$=CHR$(&H1B)+CHR$(&H48) 

130 PRINT KEXT$(A$.0) - I/x'-T h :P:SC^C7)<5^ # t±i L T^tjv. 

140 PRINT KI$ + KEXT$(A$/1)+K0$-2^xW h tB_L, Wik 

CKI/KO=i— K^#:^JPLT^^. 


38. 2/\'T 


100 A$="ABC^ ^TDA" 

110 FOR I=0 TO 5 

120 PRINT KLEN(A$,I);- -f C:^^. 

130 NEXT I 
140 PR I NT:PR I NT 

150 FOR J=1 TO KLEN(A$,0)--T ^ 

160 PRINT KTYPECAS,J); 

170 NEXT J 


; ?" / 2 . 1 )) - 


A$=JIS$(KMID$("1 
PRINT A$ 

B$=KNJ$("1B4B")+KNJ$(A$)+KNJ$("1B48")- 
PRINT B$ 


^^ZI<7)KI=3— 

’ (7)JIS=i— 

'"m" ^mTjkr^tzisb, m^kizKi 
,/KO=]— 


39. 


100 DEF FNMENSEKi (R)=3. i4i59*R>KR- 

110 DEF FNENSHUU(R)=3. 14159*2*R- 

1 20 I NPUT ''¥'^ It " ;HANKE I 

130 PRINT "® ^ ";FNMENSEKI(HANKEI) 

140 PRINT "R : " ;FNENSHUU(HANKEI) 

150 END 
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'V# 
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BASIC 

7-p< v^-'Jt, ^(DWMis 

/ 'y -fe- (69 * if) hi, "X 7 - 3 - K" h mftl^ h (DT, x 7 -|I4B#, ERR 

nmLx$>ott. 

^©X7-®IiHS-t tfzl,tzc.y~(D%±^^m<iZ.m<^fz^ 

X7-KOV^T®i¥lffltt, ^S^cfa® ERL/ERR, ERROR, ON ERROR GOTO, 
RESUME fj: 

Bad allocation table 69 

WM : rUA^n^(D¥ATtmtiX^^^. 

t-9 Xf'?rH7;j---7>y h-r-5. /i/it, 

(Dy r ^ 

Bad drive number 70 

ilH : LOAD, SAVE, KILL, OPEN if © 7 r ^ J\^mi^^^X F 7 ^ t^t^yX 

-fz i; '>7r F7^ 7'^tB®L/c^Cif. 

: lELi/^ F7^ 

Bad file name 56 

l^H : LOAD, SAVE, KILL, OPEN E'© 7 r 'f ’i-mW^^X, 7 r -f 
: lEC^^y T'i 

Bad file number 52 

i^H: mmt-y‘>77-^tctz. 

: y 7 ^ |SlB#:t-7°77 r ^ AiSc^if^-t. 

Bad track X sector_71_ 

J^H:DSKO$, DSKI$-r, -^-y F#^, F7'y7, -tr 7 7©ti^*^^iSoTV^5. 

; lELV^^'y F#'^, F7'y7, -fe 7 7 5rtS^"7'2>. 
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n m 


Can’t continue_V7_ 

/^S : STOP^^^CTRL+C^if-CUfT^ffiht/c^^, D t ?> 

t, coNT i,z i: -Dxmn^nmti 

5^^:CONT m'ff(D^W\^l,zyv ^y ^7 

^mc0^7 5 y^'CioTtt, 7°Di7*7A4-*S^;t/cD b*< t t)»TOSIfl*^^T§ 
^7<^76Ztti>6<D-CiiM. 

Direct statement in file 57 

/lis : LOAD 'eTA + -ff^^0 7°D;/7 A7 r-f K-f S t # K, 7V 1^7 hXr- b 

^yb AmiEL/z. 

^tflg : 7 °d 7'7A7 r^>'K^fT#'§-*^‘M*^®aiT®S$fxTv:>S2bs S)Sv^(i, ti^7r-f 
;i^*^7“n7’7 A7 r ^ -'i^Tli^fV^T-7 7 t^^E>ti6C0T, 7 r-f ^KD 


Disk full 68 

l^lll : SAVE, PRINT #, PUT if©T X 7 t±jT^^4'^tTLf>: t §, r ^ X 7±}C 

syo F7-f 7 ‘±®t^ 7 

I^CFy7 X±Tr^ 77^MLW^XM^t6. fzfz L 

X>^m<D t ^ 

Disk I / 0 error 64 

mil : T'f 77 t(DAtiitl^^ZJzy~i?^^Cfz. 

MM : AtajJ^frio’^ t bfZT7 77A^7 t~-^y h 

nXl^i> t%:l6it^(DX% T'l X70S7^-v>y F 

Disk offline 62 

ma : LOAD, SAVE, KILL, OPEN *tr07 r 7 r -i 77 (D^v F^fxTV^ 

Fy7 XhzMLXAliitl^ffisy t btz. 

5t^gg : T^ 77^1Eb< Fy7 7iZ^y FT-5. 

Division by Zero (AO) 11 

I^H : 0 t^7h%n/0 iniiiiMom ^O'-lA^mn^tlX, 

*^i^!)5^-^^'-7^-:£•^a.I btz. 

: mm^0izrj:ibAs:^^X^iiZt6. 
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n m 


Duplicate Difinition 10 

iSH: 1 1*. 

DIM ^(Dmmn^mL^d t Lfz. 

ERASE T'S-i.^i3?lJ^?iiD/S±T-St/l^i;i3?lJ^-C-^ 


Duplicate label 31 

liH : A4’C|WIE7 ^;w^*^"2 

J: -5 Ct"-?). 

Feature not available 33 

i^H: t vtz. 

FIELD overflow 50 

)1H : FIELD T% y > ^Ay 7 'i >\'(DU a ~ Mt LT-^fi- 256 ^ L 

tz. 

: 7^-;LF©'&ti-fttt255 ^NM FLll^I^-rS. 

File already exist 65 

i^H : t L/C7 rT*C#l£tTV^5. 

: mL<nii^67 T'l •r-rc#ftLTV^57r^;w07r^’;WiS=&^^ 

M-ra. 

File already open 54 

US : 1-TC:t-7“7$tlTV^S7 r-f^WC^LT, OPEN, KILL, NAME *E'^fTo/c. 

; CLOSE-CV>.o/^^7 

File not found 53 

ilB : LOAD, SAVE, KILL, NAME 4 E© 7 7 'f fg^ L/c 7 r ■< JUtiMsT) 

: JEL^^Fy^y'^isJ:t/y T'f 

File not open 60 

JSB: PRINT#, INPUT#^E, 7 7 -i :t~7°y^tl 

Tv^^cv:>7 7 4 A^0mbJ: 7 t Ltz. 

MM : open T7 74 ^u>^t-yyLris <. 
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File write protected_61 

t Lfz. 

•SETCioT, 7r-^;i/TV F-7-f 7 ’Ot X i?, 7 r-f 

^tltzhCO. 

• 7n -y T'! 7 7(^5l‘?)tL/>:'> —feO. 

FOR without NEXT_26_ 

: FOR~NEXT < ^tS t 
Mn-. ^D7’7AO?®ti§/>:ED, FOR~NEXT ^lEt 

Illegal direct__ 

110 : 1^7 W7 h^-FTi^o/S. 

: 7°n7'7A^-F±'r5ltTt'-l>. 

Illegal function call 5 

^fz<0, tzt^a, 

-^TafeS. 

• LOG Q (D^m^^’&\.fz. 

• SQR mwix^m^m^^%\.tz. 

•MID$, LEFT$, RIGHT$, STRINGS, SPACES, INSTR, ON-GOSUB • 

: 110*^'$ ’J 7 r i/7X-riSET-S. 

Illegal operation 74 

110 : 77D-;i/7^ 7 F7F3i::*^r-7*5i,iolfViKfgS oTVi?):*-^, tfz\t7s^u~ 
;i^7 ^ 7 F7rt'r+-A:l7L/>:T-7*^T^o(fi/MCig^ oTV^-S:®!'^^, X7 n-;i/Pji 
7il—h^-FT+-A*L*. 

^ 7-*F-h^-F§aitT*^‘i., +-A*=&tT^. 

Input past end 55 

110: INPUT#, GET:&if©7r-f-'^A^?>r-7=&R*-3Xtf#^'C, 7 r-f 

r-7^K^l^< L/>:S>i:K, § ?> 1CftA. 

EOF, LOF:&E®|gi!f$i£oT, 7 r'f Ji^cDmT ^^tUt S J: ^ 6. 
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Line buffer overflow 23 

: lfTOX^IS=& 255 ^M 

Missing operand 22 

NEXT without FOR 1 

HH : FOR~NEXT < ^=tlELTV^^v\ 

D, FOR~NEXT ^lEL < 

No RESUME _1^_ 

I^H : x-7—D hz. RESUME < , 7“n ACDUfT^^'ilM'r^ 

^>tlS : RESUME, END, ON ERROR GOTO 0 (D 6 X d 

Out of DATA 4 

JIB : DATA JED-f, READ 

nm. : DATAfT4'®r-i5'Oi!cE, READ TSc^3Atf|S[E READ t DATA 

)* t , RESTORE U < fib ftT V^ -2. a ^mUt -5. 

Out of memory 7 

J^B : i:^© J: ^ i D, ^^ y D ^ < ^o/c. 

•FOR~NEXT, GOSUB^ET':f-XT^ AjJ-y 

':> tz. 

• iiiP. 

FRE =EiSoT7y/^yy 
tt, ^©7°n^''7 A^MT'T-S9ut^B!J©T“a^'7AchT, BASIC ©:/ni/-7 
$ Z.(Dl^tS:hn<,at, CLEAR ^S-UfTfC, 

BASIC ©1^9 y ^A§ <f S. tA, 7r©§*^#<5Jo 

Tv:>5 C t hh^(DX, Se#iUT|lIPt:t-7°>7 rT 

Out of string space 14 

: -X'^m, m.nx^n^'1^-^ <t?>. 
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m 


Overflow (OV) 6 

Rename across disks 73 

i^S : F^'f :/±CabS7 NAME ^mnLXo t Lfz. 

MM : NAME TiilSlC F y y±<D7 r 'f 6. 

RESUME without error 20 

RESUME 

5l:<t^:ON ERROR GOTO TfS^ ^ tifz t :i 6 fz t ^ l£ ^'t > JU-X > FS 
RESUME *5 t Z0Jz9~i^M^ti><DT, 7 -f y/U-XXD^it^t) 0 tc(i/£s-f END 
§■< ct-pKi-s. yayyj:.(D^n^mmt6::t. 

RETURN without GOSUB _3_ 

iSH : GOSUB-RETURN *51U < 

: GOSUB Ti^ZFta^tlfz-^y'^l'-XyiU^, *: h ;i(f 7 T 7" Vp'gK RETURN *5 
$>6 t Z(Dx.7-A^^±-r6(DT, yti^^9A(DmiC^yr, GOSUB h RETURN 

Sequential I/O only 59 

MERGE i-0 7 T 4 ^l^^fm^Utz. 

MM: 

MERGE Tr/ X 7 7 r T 7X + -fi^5^T-b-7*UTfc’< . 

String formula too complex 16 

MM : < ■oA^co^tiZ:^U?>. 

String too long 15 

: 1 zxD^^mWcFKDjC^mi^ 255 y<-^ h 

MM: 2 

Subscript out of range 9 

: ^JmWL<Dm^(Dm.t^ dim fc’ J: D'OPTION BASE xm'&^flfz h # 

Tv^-5. 

DIM KJ;-g.Sw^#BSUK, 10 
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n m 


Syntax error 2 

READ t DATA t0^)Sr, toymTSKD^-m^^Cfz. 

h'fc D IE L < f2iET S. 

READ b DATATti, i>. 

Tape read error 27 

MM :W&^-oX^6. T-^ua~r, 

Type mismatch 13 

JSa : ^©&®, ^2, MS!f®§li[^ct'GioV^-C, SS[LTi/^^i.\ 

: mm^-^^i>T-:^<Dm^mmt6. 

Undefined label 32 

Undefined line number 8 

:GOTO, GOSUB, IF-THEN~ELSE 

nm : 


Undefined user function 18 

dee fn xmmt^. def usr t 

F X D T13 <. 

Unprintable error 21, 24, 25, 28, ffe 

^ -y-fe —. 

ERROR <Sm*ie> ^IlfTET E^0<SiSc*SB>#®X7- 
^ f IJ^ S O X 7 -MS C f ijffl T ^ E E § 5. 

WEND without WHILE 30 

J^B : WHILE~WEND*5IEL <^FSb-rv^^i.\ 

MM: X‘nX*7A©gttl^lEE^D, WHILE~WEND ^lEt < 
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ft m 


WHILE without WEND _29_ 

: WHILE~WEND*iIEU<5t)*U-n^^V\ 

MW.: yv^^yA(Dmtl^fzED, WHILE~WEND ^lEL < 

'>7.TA^m 51 
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m 


B. 


□ -K :^r- 


xx-f 


rPiyvA4'Olit^ 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 
13 
15 
18 
19 
21 
24 
28 

29 

30 

31 


CTRL+A 

CTRL+B 

CTRL + C 

CTRL+D 

CTRL + E 

CTRL+F 

CTRL+G 

CTRL+H 

CTRL+I 

CTRL+J 

CTRL+K 

CTRL+L 

CTRL + M 

CTRL+0 

CTRL+R 

CTRL+S 

CTRL+U 

CTRL + X 


T 

1 


HELP 


— y ^ 1 O BU ® *7 — F' 


STOP 


1 V-F» 

* - y ^ tf ^ t T§ 

^~v 1 o^feov— F-^^K 


— t R U 
^-hlRU 

7? — y;l^^4: — V 

r+ X FB®®y y 7 
y y-y^-LRC 

-I" y-y— F^-FKA^/tBs 
S®:(y. y n—;u)®—Bt^ih 
1 

ij-V 
ij — V 
ii — V 


BS ^ 


TAB 


X t° —7? =&P,t^'f 
'y y X^—X 
A¥y7 
7 -I” y 7 ^ - F 
7—Adxi^y 3 y 
r X F H®® y y 7 
^ y y '7 y y - y 


7? - y 


fi# XnyyAtFOtiSgfi:, jyt&y'S 3-F*Jiii®(cai*$A«,Pf (Xnyy AWHtf+Hcfftg S7. 
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a m 


C. 


±f44 h- 
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n m 


D. mmmuA 


.1 iiiT(DWc^^0%<i^Lx </f$vi(lgM©|gHc^i:t*Ji2^g-c•r). 





SEC (X)= 1/COS (X) 

=i-b*> h 

CSC(X) = 1/SIN(X) 

H^'VvxV h 

C0T(X) = 1/TAN(X) 

> 

ARCSIN(X)=ATN(X/SQR(-X*X+1)) 

7-^=1 if-<> 

ARCCOS (X) = - ATN (X/SQR (-X * X+1)) +1.5708 


ARCSEC(X) = ATN (SQR (X * X-1)) + (SGN (X) -1) * 1.5708 

7-^3-t2*> h 

ARCCSC(X)=ATN(l/SQR(X=i=X-l)) + (SGN(X)-l) *1.5708 


ARCCOT(X) = -ATN (X) +1.5708 

/\-</\'—7 > 

SINH (X) = (EXP(X) -EXP (-X))/2 

/\-f/\°-,-JfiJ 'y^-ZiV'O 

COSH (X) = (EXP (X) + EXP(-X))/2 

/x-f/\°—;j;ij "j^'^'y'J'j.'y h 

TANH (X) = - EXP (-X)/(EXP (X) + EXP (-X)) * 2+1 

/x-f/x"— tXU 'yi?*-tr*> h 

SECH (X) = 2/ (EXP (X) + EXP (-X)) 

/x-f/x°—;J<U 7:?0-b*> h 

CSCH (X) =2/ (EXP (X) -EXP (-X)) 

/x-|'/x”-;JxU h 

COTH(X)=EXP(-X)/(EXP(X)-EXP(-X)) *2 + 1 

/x-f/x°—/-jxU > 

ARCSINH(X)=LOG(X+SQR(X*X+l)) 

/x-f/x'-z-jxij 'y^''7-:?llit-<> 

ARCCOSH (X) =LOG(X+SQR (X * X-1)) 

/X'f/x"-;Jxij "j^'7—!7^yvi.y\- 

ARCTANH (X) = LOG ((1 + X) / (1 - X)) /2 

/\-i /x°—;jxij "j‘^'7—7-^f}> h 

ARCSECH(X)=LOG((SQR(-X*X+l) + l/X) 

/x^f/x'-z-J^'iJ 'y^’7-^'=l-fe*> h 

ARCCSCH (X) =LOG ((SGN (X) * SQR (X * X+1) +1) /X) 

/x-fyx’-;jxij 'y^’7-:?=l^'>vx> h 

ARCCOTH (X) = LOG ((X +1) / (X -1)) /2 
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n B 



(^j:ABSN) a, 


ABS 

CONT 

EOF 

INPUT 

AKCNV$ 

COPY 

EQV 

INPUTS 

ALLOC 

COS 

ERASE 

INSTR 

AND 

CSNG 

ERL 

INT 

ASC 

CSRLIN 

ERR 

IRESET 

ATN 

CVD 

ERROR 

ISET 

ATTR$ 

CVI 

EXP 

JIS$ 

AUTO 

CVS 

FIELD 

KACNV$ 

BEEP 

DATA 

FILES 

KANJI 

BLOAD 

DATE$ 

FIX 

KEXT$ 

BSAVE 

DEE 

FN 

KEY 

CALL 

DEFDBL 

FOR 

KILL 

CDBL 

DEFINT 

FRE 

KINPUT 

CHILD 

DEFSNG 

GET 

KINSTR 

CHR$ 

DEFSTR 

GOSUB 

KLEN 

CINT 

DELETE 

GOTO 

KMID$ 

CIRCLE 

DELIM 

GO TO 

KNJ$ 
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